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1. INTRODUCTION 


The standard CP/M system assumes operation on an Intel MDS-3809g 
microcomputer development system, but is designed so that the user can 
alter a specific set of subroutines which define the hardware 
operating environment. In this way, the user can produce a diskette 
which operates -with any IBM-3741 format compatible drive controller 
and other peripheral devices, 


Altnough standard CP/M 2.0 is configured for single density floppy 
disks, field-alteration features allow adaptation to a wide variety of 
disk subsystems from. single drive minidisks through high-cavacity 
"nara disk“ systems. In order to simplify the following adaptation 
process, we assume that CP/M 2.0 will first be configured for single 
density floppy disks where minimal editing and debugging tools are 
available. Ilfippana Carlier wversions efu CP/M<sisS ‘available, the 
customizing process is eased considerably. In this latter case, you 
may wisn to briefly review the system generation process, and skip to 
later sections which discuss system alteration for non-standard disk 
systems. 


In order to achieve device independence, CP/M is separated into 
tnree distinct modules: 


BIOS - oasic I/O system which is environment dependent 

BDOS - basic disk operating system which is not dependent 
upon the hardware configuration 

CEP. = the console command processor which usesi,the’ BDOS 


Of these modules, only the BIOS is dependent upon the particular 
nardware, Dhateis, sthe,userccan “patch" the distribution version of 
CP/M to provide a new BIOS which provides a customized interface 
between the remaining CP/M modules and the user's own hardware system. 
The purpose of this document is to provide a step-by-step procedure 
for patching your new BIOS into CP/M, 


If CP/M is being tailored to your computer system for the first 


time, the new BIOS requires some relatively simple software 
development and testing. The standard BIOS is listed in Appendix B, 
and can be used as a model for the customized package. A skeletal 


version of the BIOS is given in Appendix-Ceowhich;caniserve asthe 
DasisslLor TalmodritediBios. Iniaddition tovthe (BIOS, the user must 
write a simple ‘memory, loader, called GETSYS, which brings the 
operating system into memory. In order to patcn the new BIOS into 
CP/M, the user must write tne reverse of GETSYS, called PUTSYS, which 
olaces an altered version of CP/M back onto the diskette. PUTSYS can 
be derived from GETSYS by changing the disk read commands into disk 
write commands. Sample skeletal GETSYS and PUTSYS programs are 
described;-in -Sections 37 and histed insAppendix D. jIn°order:itovmake 
the CP/M system work automatically, the user must also supply a cold 
Stant scroader, sisimiliar, tofethe sone »pHovidedaiwkthi CR/Mp(listed in 
Appendices A and B). A skeletal form of a cold start loader is given 
in Appendix E which can serve as a model for your loader. 


(All Information Contained Herein is Proprietary to Digital Research. ) 


1 


2. FIRST LEVEL SYSTEM REGENERATION 


The procedure to follow to patcn the CP/M system is given below in 
several steps. Address references in each step are shown with a 
following "H"“ which denotes the hexadecimal radix, and are given for a 
20K CP/M system. For larger CP/M systems, add a “bias" to each 
address which is shown with a "+b" following it, where b is equal to 
the memory size - 20K. Values for b in various standard memory sizes 
are 


24K: b = 24K - 20K = 4K = 19000H 
yale DeSeO2K —*20Kr =k = 3000H 
40K: b = 40K - 20K = 20K = 56@00H 
48K: b = 48K - 20K = 28K = 7600H 
DORKS b = 56K - 20K = 36K = 9000H 
62K: b = 62K - 20K = 42K = A89OH 
64K: b = 64K - 20K = 44K = BOOOH 


Note: The ‘standard ‘distribution’ version ‘of ““CP/M- 1S% setmerorn 
operation within a 20K memory system, Therefore, you must first bring 
up the 20K CP/M system, and then configure it for your actual memory 
Size (see Second Level System Generation). 


(1) Review Section 4 and write a GETSYS program which reads’ the 
first two tracks of a diskette into memory. The data from the diskette 
must begin at location 3380H. Code GETSYS so that it starts at 
location 100H (base of thew*TPA), as’ ‘shown’ inv@the first parton 
Appendix d. 


(2) Test the GETSYS* program by” reading’ a®°blank “diskette wim 
memory, and check to see that the data has been read properly, and 
that the diskette has not been altered in any way by the GETSYS 
program, 


(3) Run the GETSYS program using an initialized CP/M diskette to 
see if GETSYS loads CP/M starting at 338@H (the operating syouem 
actually starts 128 bytes later at 34@0H). 


(4) Review Section 4 and write the PUTSYS program which writes 
memory. starting éat) 3380H"'back’*“onto the’ “first” ‘two racketoameene 
diskette, The PUTSYS program should be located at 200H, as shown in 
the second part of Appendix D, 


(5) Test the PUTSYS program using a blank uninitialized diskette 
by writing a portion of memory to the first two tracks; clear memory 
and read it back using GETSYS. ‘Test PUTSYS completely, § since ‘this 
program will be used to alter CP/M on disk. 


(6) Study Sections 5, 6, and -7, along with the distribution 
version of the BIOS given in Appendix B, and write a simple version 
which performs a similar function for the customized environment. Use 
the program given in Appendix C as a model. Call this new BIOS by the 
name CBIOS (customized BIOS). Implement only the primitive disk 
operations on» at singlé -drive, “and ‘simple ‘console ‘input/outpue 
functions in this phase. 
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(7) Test CBIOS completely to ensure that it properly performs 
console character I/O and disk reads and writes. Be especially 
careful to ensure that no disk write operations .occur accidently 
during read operations, and check that the proper track and sectors 
are addressed on all reads and writes. Failure to make these checks 
may cause destruction of the initialized CP/M system after it is 
patched. 


(oj ReOLeRb Ingato Figure .l. in, Section 5, note, that the ,810S,.is 
placed between locations 4A®@@®H and 4FFFH. Read the CP/M system using 
GETSYS and replace the BIOS segment by the new CBIOS developed in step 
(6) and tested in step (7). This replacement is done in the memory of 
the machine, and will be placed on the diskette in the next step. 


(9) Use PUTSYS to place the patched memory image of CP/M onto the 
first two tracks of a blank diskette for testing, 


(16) Use GETSYS to bring the copied memory image from the test 
diskette back into memory at 3380H, and check to ensure that it has 
loaded back properly (clear memory, if possible, before the load). 
Upon successful load, brancn to the cola start code at location 4AWQH. 
The cold start routine will initialize page zero, then jump to the CCP 
at location 3408H which will call the BDOS, which will call the CBIOS., 
The CBIOS will be asked by the CCP to read sixteen sectors on track 2, 
and if successful, CP/M will type "A>", the system prompt. 

When you make it this far, you are almost on the air. If you have 
trouble, use whatever debug facilities you have available to trace and 
breakpoint your CBIOS. 


(11) Upon completion of step (180), CP/M has promoted the console 
for a command input. Test the disk write operation by typing 


SAVE 1 X.COM 
(recall that all commands must be followed by a carriage return). 
CP/M should respond with another prompt (after several disk accesses): 
A> 
If it does not, debug your disk write functions and retry. 
(12) Then test the directory command by typing 
DIR 
CP/M should respond witn 
A: X& COM 
(13) Test the erase command by typing 


ERA X.COM 
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CP/M should respond with the A promot. When you make it this far, you 
should have an operational system which will only require a bootstrap 
loader to function completely. 


(14) Write a bootstrap loader which is similar to GETSYS, and 
piace i on track 9, sector 1 using PUTSYS (again using the test 
diskette, not the distribution diskette). See Sections 5. and #Ston 
more information on the bootstrap operation. 


(15) Retest the new test di'skette with ‘the ‘bootstrap  doader 
installed by executing steps? (PL) Cli2)5 ‘and (13) .-~ Upon? comp Verran as 
these tests, type a control-C (control and C keys simultaneously). The 
system should then execute a “warm start" which reboots the system, 
and types the A prompt, 


(16) At this point, you probably have a good version of your 
customized CP/M system on your test diskette. Use GETSYS to load CP/M 
from your test diskette, Remove the test diskette, place the 
distribution diskette (or a legal copy) into the drive, and use PUTSYS 
to replace the distribution version by your customized version, DO 
not make this replacement if you are unsure of your patch since this 
step destroys the system which was sent to you from Digital Research, 


(17) Load your modified CP/M system and test it by typing 
DIR 


CP/M should respond with a list of files which are provided on the 
initialized diskette. One such file should be the memory image for 
the debugger, called DDT.COM. 


NOTE: from now on, it is important that you always reboot the CP/M 
System (ctl-C is sufficient) when the diskette is removed and replaced 
by anotner diskette, unless the new diskette is to be read only. 


(18) Load and test the debugger by typing 
DDT 


(see the document “CP/M Dynamic Debugging Tool (DDT)" for operating 
procedures, You should take the time to become familiar with DDT, it 
will be your best friend in later steps. 


(19) Before making further CBIOS modifications, practice using 
the editor (see the ED user's guide), and assembler (see the ASM 
user's guide). Then recode and test the GETSYS, PUTSYS, and CBIOS 
programs using ED, ASM, and DDT. Code and test a COPY program whicn 
does a sector-to-sector copy: from one diskette ‘to "another ‘"to’ Obtain 
back-up copies of (‘the oniginal (diskette  \(NOTR: read your CP/M 
Licensing Agreement; it specifies your legal responsibilities when 
copying the CP/M system). Place the copyright notice 


Copyright weg 79 
Digital Research 
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on each copy which is made with your COPY program. 


(20)%:i Modify “your-.,CBIOSv4to0. includespthe..extra sfunctions for 
punches, readers, signon messages, and so-forth, and add the 
facilities for a additional disk drives, if desired. You can make 
these changes with the GETSYS and PUTSYS programs which you _ have 
developed, or you can refer to the following section, which outlines 
CP/M facilities which will aid you in the regeneration process, 


You now have a good copy of the customized CP/M system. Note that 
although the CBIOS portion of CP/M which you have develoved belongs to 
you, the modified version of CP/M which you have created can be copied 
for your use only (again, read your Licensing Agreement), and cannot 
be legally copied for anyone else's use, 


It should be noted that your system remains file-compatible with all 


other CP/M systems, (assuming media compatiblity, of course) which 
allows transfer of non-proprietary software between users of CP/M. 
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3. SECOND LEVEL SYSTEM GENERATION 


Now that you have the CP/M system running, you will want to 
configure CP/M for your memory size. In general, you will first get a 
memory image of CP/M with the “MOVCPM" program (system relocator) and 
place this memory image into a named disk file. The disk file can then 
be loaded, examined, patched, and replaced using the debugger, and 
system generation program. For further details on the operation of 
these programs, see the "Guide to CP/M Features and Facilities” 
manual. 


Your CBIOS and BOOT can be modified using ED, and assembled using 
ASM, producing files called CBIOS.HEX and BOOT.HEX, which contain the 
machine code for CBIOS and BOOT in Intel hex format. 


To get the memory image of CP/M into the TPA configured for the 
desired memory size, give the command: 


MOVCPM xx * 


where “xx” is the memory size in decimal K bytes (e.g., 32 for “O28ge 
The response will be: 


CONSTRUCTING xxK CP/M VERS 2.98 
READY FOR "SYSGEN" OR 
“SAVE 34 CPMxx.COM" 


At this point, an image of a CP/M in the TPA configured fOrwawa. 
requested memory size. The memory image is at location #9080H through 
227EH; (i.e,', The BOOT is at O090B8H, the CCP as at "980H, the ™tEves 
starts” at 118@0H, ‘and '‘the” BIOS “is at “1F80H.) Note that the Mena 
image has the standard MDS-890 BIOS and BOOT on it. It is now 
necessary to save the memory image in a file so that you can patch 
yOur “CBLOS andie@Boot inte nc 


SAVE 34 CPMxx.COM 


The memory image created by the "MOVCPM" program is offset by a 
negative bias so that it loads into the free area of the TPA, and thus 
does not interfere with the operation of CP/M in higher memory. This 
memory image can be subsequently loaded under DDT and examined or 
changed in preparation for a new generation of the system, DDT is 
loaded with the memory image by typing: 


DDT CPMxx.COM Load DDT, then read the CPM 
image 


DDT should respond with 
NEXT PC 
2308 91809 
- (The DDT prompt) 


You can then use the display and disassembly commands to examine € 
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portions of the memory image between Y98G@H and 227FH. Note, however, 
that to find any particular address within the memory image, you must 
apply the negative bias to the CP/M address to find the actual 
address. Track #0, sector #1 is loaded to location 9@@H (you should 
find the cold start loader at 90@H to 97FH), track 88, sector §2 is 
loaded into 98@H (this is the base of the CCP), and so-forth through 
the entire CP/M system load. Ina 2@K system, for example, the CCP 
resides at the CP/M address 3400H, but is placed into memory at 986@H 
by the SYSGEN program. Thus, the negative bias, denoted by n, 
satisfies 


3400H + n = 980H, or n = 98OH —- 3400H 


Assuming two's complement arithmetic, n = D589H, which can be checked 
by 


3490H + D58GH = 10980H = 0980H (ignoring high-order 
overflow). 


Note that for larger systems, n satisfies 
(3400H+b) + n = 98G6H, Or 
n = 980H - (3400H + b), or 
N= DSeun =, 


The value of n for common CP/M systems is given below 


memory size bias b negative offset n 
20K 0O00H D580H - #980H = D580H 
24K 1600H D580H - 1900H = C5d8VH 
32K 3000H D580H - 30008H = A580H 
AMOK 50060H D586H - SO@U¥H = 8580H 
48K 7000H D580H - 7000H = 6589H 
5 6K 9990H D580H - 9O00H = 4580H 
62K A8@OH D580H - A8OWH = 2D80H 
6 4K B¢gOOH D580H - BOSH = 2580H 


Assume, for example, that you want to locate the address x within the 
memory image loaded under DDT in a 28K system. First type 


Hx) 2 Hexadecimal sum and difference 


and DDT will respond with the value of x+tn (sum) and x-n (difference). 
The first ‘humber printed by DDT will be the actual memory address in 
the image where the data or code will be found. The input 


4 


H3400,D589 


for example, will produce 98@0H as the sum, which -is where the. CCP is 
located in the memory image under DDT. 


Use the L command to disassemble portions the BI0S located at 
(4A9@H+b) -n which, when you use the H command, produces an actual 
address of 1F80H. The disassembly command would thus be 
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L1F8@ 
It 1S now necessary to patch in your CBOOT and CBIOS' routines. The 
BOOT resides at location 99@#6H in the memory image. If the actual 
load address is "n", then to calculate the bias (m) use the command: 


H900,n Subtract load address from 
target address, 


The second number tyved in response to the command is the desired bias 
(m). For example, if your BOOT executes at J089H, the command: 


H9OU,80 
will reply 
QI80 V88O Sum and difference in hex, 


Therefore, the bias “m“ would be 0880H. To read-in the BOOT, give the 
command: 


ICBOOT,. HEX Input file CBOOT.HEX 
Then: 
Rm Read CBOOT with a bias of 
m (=90dH—-n) 


YOu May now examine your CBOOT with: 
LIOY 


We are now ready to replace tne CBIOS. Examine the area at Il1F8@H 
where the original version of the CBIOS resides. Then type 


[CEOs nix Ready the “hex" file for loading 


assume that your CBIOS 1s being integrated into a 20K CP/M system, and 
thus is .origined at bocation 4A@0H. In*order*to properly locate ™iene 
CBIOS in the memory image under DDT, we must apply the negative bias n 
for a 20K system when loading the hex file. This is accomplished by 


typing 

RD58v Read the file with bias D586@H 
Upon completion. of the read, re-examine the area where the 'CBEOS) Wiese 
peen loaded (use an “LLFS?” command), to ensure that is’ was oa 


properly. When you are satisfied that the change has been mades 
return, ‘Er om-DDL using Vakwoontrol—C-or "Ge “command: 


Now use SYSGEN to,replace the patched memory image back onto @ 


diskette “(tise va,’ test“disket te untrr*you “are sure “of your patch). 
Snown in the following interaction 
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SYSGEN Start the SYSGEN program 


SYSGEN VERSION 2.90 Sign-on message from SYSGEN 
) SOURCE DRIVE NAME (OR RETURN TO SKIP) 
> Respond with a carriage return 
to skip the CP/M read operation 


Since the system is already in 
memory. 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) 
Respond witiee een ito write, ithe 
new system to the diskette in 
dpave Bx 

DESTINATION ON B, THEN TYPE RETURN 
Place. a iscrateh diskette an 
dyive.B,. then type ~oeturn, 


FUNCTION COMPLETE 
DESTINATION DRIVE NAME (OR RETURN TO REBOOT) 


Place the scratch diskette in your drive A, and then perform a 
coldstart to bring up the new CP/M system you have configured, 


Test the new CP/M system, and place the Digital Research copyright 
notice on the diskette, as specified in your Licensing Agreement: 


Copyetght (c),, 1979 
Digital Research 


4, SAMPLE GETSYS AND PUTSYS PROGRAMS 


The following program provides a framework for the GETSYS and 
PUTSYS programs referenced in Section 2, The READSEC and WRITESE 
subroutines must be inserted by the user to read and write th 
specific sectors, 


GETSYS PROGRAM - READ TRACKS @ AND 1 TO MEMORY AT 3380H 


: . +REGISTER USE 
° A (SCRATCH REGISTER) 
‘ B TRACK COUNT (0, 1) 
: c SECTOR COUNT#:(14 2m ane 6) 
» DE (SCRATCH REGISTER PAIR) 
: HL LOAD ADDRESS 
: SP SET TO STACK ADDRESS 
START: LXI SP,3380H >SET STACK POINTER TO SCRATCH AREA 
EXI #8, 33808 >SET BASE LOAD ADDRESS 
MVI B, @ >START WITH TRACK 6 
RDTRK: | >READ NEXT TRACK (INITIALLY 9) 
MUM gu ;READ STARTING WITH SECTOR 1 
RDSEC: ;READ NEXT SECTOR 
CALL READSEC ; USER-SUPPLIED SUBROUTINE 
LI  D,128 >MOVE LOAD ADDRESS TO NEXT V2 PAGE 
DAD a Bivona 126 
INR C ;SECTOR = SECTOR + 1 
MOV A,C ;CHECK FOR END OF TRACK 
Cpr. “ey 
ac RDSEC >CARRY GENERATED IF SECTOR < 27 
> ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK © 
INR | 8B 
MOV A,B ;TEST FOR LAST TRACK 
ery 4cv2 
ac RDTRK >CARRY GENERATED IF TRACK < 2 


; ARRIVE HERE AT END OF LOAD, HALT FOR NOW 
BUT 


o 

; USER-SUPPLIED SUBROUTINE TO READ THE DISK 

READSEC: 

H ENTER WITH TRACK NUMBER IN REGISTER B, 
SECTOR NUMBER IN REGISTER C, AND 
ADDRESS TO FILL IN HL 


=e 


260 oO 


PUSH B ;SAVE B AND C REGISTERS 
PUSH H ;SAVE HL REGISTERS 


eee @eoee ees#seee@ oeeeo eo oeeeeeoeeetee4e3+oeeeeeee#e eoeoeee?es# 


perform disk read at this. point, branch to 


label START if an error occurs 


POP H RECOVER HL 


POP B ;RECOVER B AND C REGISTERS 
RET ;BACK TO MAIN PROGRAM ¢ 
END START 
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Note that this program is assembled and listed in Appendix C for 
reference purposes, with an assumed origin of 189H. The hexadecimal 
operation codes which are listed on the left may be useful if the 
program has to be entered through your machine's front panel switches. 


The PUTSYS program can be constructed from GETSYS by changing only 
a few operations in the GETSYS program given above, as shown in 
Appendix OD. The register pair HL become the dump address (next 
address to write), and operations upon these registers do not change 
within the program. The READSEC subroutine is replaced by a WRITESEC 
subroutine which performs the opposite function: data from address HL 
is written to the track given by register B and sector given by 
register C. It is often useful to combine GETSYS and PUTSYS into a 
single program during the test and development phase, as shown in the 
Appendix. 


(All Information Contained Herein is Proprietary to Digital Research.) 


Li 


5. DISKETTE ORGANIZATION 


CP/M is given here for reference purposes. The first sector (se 


The sector allocation for the standard distribution version ¢ 


table on the following page) contains an optional software boot 
section.» Disk) ‘controllers are soften set uv’ to bring track OP isector 1 
into memory at a specific location (often location #®06H). The 
program in this sector, called BOOT, has the responsibiPEtyy "6L 
bringing the remaining sectors’ into memory starting at location 
3400H+b. If your controller does not have a built-in sector load, you 
can ignore the program in track 9, sector 1, and begin the load from 
track @ sector 2 to location 34@@H+t+b. 


As an example, the Intel MDS-8@@ hardware cold start loader brings 
track @, sector l “into absolute address '"3900H- Upon loading this 
sector, control transfers) ito location. 3000H where the bootstrap 
operation commences by loading the remainder of tracks J, and all of 
track 1 into memory, starting at 34@#H+b. The user should note that 
this bootstrap loader is*or (luttle’ “uses in7 "a" *non-MpSs environment, 
although it is useful to examine it since some of the boot actions 
will have to be duplicated in your cold start loader. 
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Track# Sector# Page# Memory Address CP/M Module name 


mY) 01 (boot address) Cold Start Loader 
QO G2 0@ 34008H+b CCP 

u 03 ss 3480H+b ‘ 

s 04 G1 3500H+b e 

‘5 O5 ‘i 358WH+b " 

4 06 G2 3608H+b 4 

07 ¥ 3680H+b 

% 08 G3 37900H+b 

: G9 ‘i 378@0H+b ; 

: 10 O4 3800H+b “ 

4 a 53 3886H+b * 

oh 12 05 3900H+b % 

, 13 ay? 3980H+b . 

. 14 G6 3A80H+b ‘ 

- 15 " 3A8@H+b fe 

2 16 37 3B00H+b ‘ 
on) 17 . 3B80H+b CCP 
00 18 08 3C8GH+b BDOS 

° 19 4 3C8@H+b a 

3 29 09 3D00H+b 

" 2) " 3D80H+b 

Hy a2 10 3E8@H+b 

; 23 - 3E80H+b “" 

2 24 VY 3F0@H+b ss 

: 25 $ 3F8@H+b ‘s 

i 26 12 4000H+b “ 

>} G1 G1 ‘ 498@0H+b % 

- G2 13 4100H+b i 

® 03 ” 418@0H+b ‘ 

: 04 14 4200H+b % 

i, 05 " 428@H+b ‘ 

2 06 D5 4300H+b a 

% O7 " 4380H+b _ 

" 08 16 44090H+b " 

= G9 * 4480H+b . 

a 1 17 4509H+b 

‘ 11 * 4580H+b : 

% 12 18 460@6H+b * 

xm 13 . 4680H+b ‘: 

* 14 19 470@0H+b ‘ 

% “BS 478@H+b a 

” 16 20 4800H+b ‘ 

. 17 % 488@0H+b . 

" 18 21 49080H+b fi 

G1 19 ‘ 4980H+b BDOS 

G1 20 22 4A06H+b BIOS 

_ Falk 3 4A80H+b " 

q Pgs 23 ABOGOH+b - 

. 24 ‘, 4B80H+b ‘ 

" 25 24 4C@GBH+b x 

“ 01 26 : 4C8@H+b BIOS 
02-76 01-26 (directory and data) 
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The entry points into the BIOS from the cold start loader and BDOS 
are detailed below. Entry to the BIOS is through a "jump vector" 
located at 4A9@@H+b, as shown below (see Appendices B and C, as well). 
The jump vector is a sequence of 17 jumo instructions which send 
program control to the individual BIOS subroutines. The BIOS 
subroutines may be empty for certain functions (i.e., they may contain 
a Single RET operation) during regeneration of CP/M, but the entries 
must be present in the jump vector, 


The jump vector at 4A¥@H+b takes the form shown below, where the 
individual jump addresses are given to the left: 


4£A00H+b JMP BOOT 
4A93H+b JMP WBOOT 
4A06H+b JMP CONST 
4A99H+b JMP CONIN 
4A0CH+b JMP CONOUT 


ARRIVE HERE FROM COLD START LOAD 
ARRIVé HERE FOR WARM START 

CHECK FOR CONSOLE CHAR READY 
READ CONSOLE CHARACTER IN 

WRITE CONSOLE CHARACTER OUT 


4AQ0FH+b JMP LIST ; WRITE LISTING CHARACTER OUT 
4A12H+b JMP PUNCH ; WRITE CHARACTER TO PUNCH DEVICE 
4A15H+b JMP READER ; READ READER DEVICE 

4A18H+b JMP HOME ; MOVE TO TRACK #@ ON SELECTED DISK 
4A1BH+b JMP SELDSK ; SELECT DISK DRIVE 

4A1EH+0 JMP SETTRK ; SET TRACK NUMBER 

4A21H+b JMP SETSEC ; SET SECTOR NUMBER 

4A24H+b JMP SETDMA ; SET DMA ADDRESS 

4A27H+b JMP READ ; READ SELECTED SECTOR 

4A2AH+D JMP WRITE ; WRITE "SELECTED (SECTOR 

4A2DH+b JMP LISTST ; RETURN LIST STATUS - 

4A3@H+b JMP SECTRAN ; SECTOR TRANSLATE SUBROUTINE 


Each jump address corresponds to a particular subroutine which 
performs the specific function, as outlined below. There are three 
major divisions in the jump table: the system (re)initialization 
which results from calls on BOOT and WBOOT, simple character I/O 
performed by calls on CONST, CONIN, CONOUT, LIST, PUNCH, READER, and 
LISTST, and diskette I/O performed by calls on HOME, SELDSK, SETTRK, 
SETSEC, SETDMA, READ, WRITE, and SECTRAN, 


All simple character I/O operations are assumed to be performed in 
ASCII, upper and lower case, with high order (parity bit) set to zero. 
An end-of-file condition, for an inputedevice bs given*by an Ape 
control-z (1AH). Peripheral devices are seen by CP/M as "logical" 
devices, and are assigned to physical devices within the BIOS. 


In order to operate, the BDOS needs only the CONST, CONIN, and 
CONOUT subroutines (LIST, PUNCH, and READER may be used by PIP, but 
not the BDOS). Further, the LISTST entry is used currently only by 
DESPOOL, and thus, the initial version of CBIOS may have empty 
subroutines for the remaining ASCII devices. 
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The characteristics of each device are 


CONSOLE 


PAG os 


PUNCH 


READER 


LOBYTE AT 


The principal interactive console which communicates 
with the operator, accessed through CONST, CONIN, and 
CONOUT..-Pypically,,.”"tne CONSOLE, 1s..asdevice such as a 
CRT or Teletype. 


The princioal listing device, awit) bt. exists ;on “your 
Systeme) witch ws vucualhy acnardzeopyrdevice, such as a 
printer or Teletype. 


The principal tape punching device, if it exists, which 
is normally a high-speed paper tape punch or Teletype. 


The principal .tape,.reading device, su¢h as a simple 
optical reader or Teletype. 


Note that a single peripheral can be assigned as 
the LIST, PUNCH, and READER device simultaneously. If 
no peripheral device is assigned as the LIST, PUNCH, or 
READER device, the CBIOS created by the user may give 
an appropriate error message so that the system does 
NOE ano Valet ne devi Ce 1s accessed ) Dy RUD "On some 
other user program. Alternately, the PUNCH and LIST 
routines can just simply return, and the READER routine 
Canuvecurnrweon ca AM R(CtL=2).) im) reg "A ‘to’ indicate 
immediate end-of-file. 


POoradded yelexibprl tty. the uSen! “can» optional ly 
implement )) the.,  TOBYTE: function which allows 
Leascionment .of tobvskcaly “anduslogical”™ devices, “The 
IOBYTE function: creaves..v4a..mapoing "Of "Logical ~ to 
physical devices which ican ,be.altered during CP/M 
processing. \(See...the, STAT command) ...fhe definition of 
the IOBYTE function corresponds to ithe Intel standard 
as. -fol lows: a “single wocattonsin memory (cunrently 
location GUSH). vs) maintained, «called “FOBYTE, which 
defines the logical to physical device mapping which is 
iN wBerLecte .4at. GQepod be bCulan: juime:. The mapping is 
Dertormed iby usbikiuciung sone MLOBY TE SYiptOo “rour diskinct 
Ere lds uwOlLM acwo.. OuuUS wench, soalLleduene “CONSOLE, KEADER, 
PUNCH, and LIST fields, as shown below: 


most significant least significant 


ome eee em wee ee wee we ee ee ee we ee ee ee ee ae ee ee ee ee eee ewe ee eee ee ae see ee ee ee ee 


9083H | LIST | PUNCH PP ee AOE R at COND One o | 


ere cme ee ees ee ce ee es eee ee ee ee ee ee ee ee ee ee ee ee ee ae ees eee eee ae ee 


Pein eG: Viiias Wir lature ty ety dS 92. ar) Wes op 


Rieruailie 4, eacwublelducan woeGaimyrthe range. 0-3, 
defining the. assigned source or destination of each 
Poducal devicen wine wales whitch can. be) assigned “to 
each field are given below 
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CONSOLE field (bits 9,1) 


M4) 
i 
2 


3 


console is assigned to the console printer device (TTY:) 
console is assigned to the CRT device (CRT:) 

batch mode: use the READER as the CONSOLE input, 

and the LIST device as the CONSOLE output (BAT:) 

user defined console device (UC1:) 


READER "field" “Go rts 27773) 


Y) 


1 
2 
3 


READER is the Teletype device (TTY:) 

READER is the nigh-speed reader device (RDR:) 
user defined reader # 1 (UR1:) 

user defined reader # 2 (UR2:) 


PUNCH field (bits 4,5) 


) 


if 
2 
3 


PUNCH is the Teletype device (TTY:) 

PUNCH is the high speed punch device (PUN:) 
user defined puncn # 1 (UP1:) 

user defined punch #¢ 2 (UP2:) 


Lio tr ire Poe (bres "Gt a7) 


Y) 
iL 
2 
3 


LIST is the Teletype device (TTY:) 
GEST "rs tie “CR devree i(CR icy 

LIST is the line printer device (LPT:) 
user defined list device (ULI1:) 


Note again that the implementation of the IOBYTE is 
optional, and affects only the organization of your 
CBOs: No CP/M systems use the IOBYTE (although they 
tolerate the existence of the I0BYTE at location 
OO03H), “except: for” PIP” which allows access) Toya 


physical devices, and STAT wnicn allows 
logical-pnysical assignments to be made and/or 
displayed (for more information, see the "CP/M Features 
and Facilities Guide"). In any ‘case, the TOs ame 


implementation should be omitted until your basic CBIOS 
is fully implemented and tested; then add the IOBYTE to 
increase your facilities, 


Disk I/O is always performed through a sequence!) Of 
calls on the various disk access subroutines which set 
up the disk number to access, the track and sector on a 
Darticular disk, and’ the” *direct “memory access ((ama@ 
address involved in the I/O operation. After all these 
parameters nave been set up, a call is made to the READ 
Or WRITE function to perform the actual 1/0 operataon: 
Note’ that there*is often asingle call ‘to~ SELDSKae@o 
select a disk drive, followed by a number of read or 
write operations to the selected disk before selecting 
another drive for subsequent operations, Similarly, 
there may be a single call to set the DMA address, 
tollowed by several calls which read or write from the 
selectea DMA address pefore the DMA address is changed. 
The track and sector subroutines are always called 
before tne READ or WRITE operations are performed. 
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BOOT 


WBOOT 


CONST 


CONIN 


Note’ that’ the READ” and WRITE routines’ should 
perform several retries (18 1s _ standard) before 
reporting, «the verror’ ¢condytron’ to, the. BDOS,., If the 
errorm cond: toners returned cco!) the BDOS,) 1t will report 
the error to the user. ‘The HOME subroutine may or may 
not actually perform the track 96 seek, depending upon 
your controller characteristics; the important point is 


“that track 0@ has been selected for the next operation, 


and Us On Cen (created in vexactly) the, same | manner) 14s 
SETIRK with a parameter of 9@. 


me” “exact.” ‘responsibilites “of” each entry 4 point 
Subroutine are given below: 


Tie (BOOT entry pount gets -contro] trom the cold. start 


loader and is responsible for basic system 
Miteraltizacrons TIncluding ..sending, says: signon.,message 
(which can be omitted in the first version). Tf. ‘the 


IOBYTE function is imolemented, it must be set at this 
point. ‘The various system parameters which are set py 
the WBOOT entry point must be initialized, and control 
Len) ehanster red «ieommehe © 'CCP? ‘at (3 40GHtb ghor further 
procecsing.«{ iNoteyithat reg -C imustibe set to sezen0 i to 
select drive A, 


The WBOOT entry point gets control when a warm start 
eccurs. > A -warm ‘start,,°:1s ~performed whenever a user 
program branches to location @809H, or when the CPU is 
recet from the front panel. The "CP/M, isystem™ must, be 
Woadea’rrom ithe frst ‘two -tracks \of drive Asup jto,, but 
not including?’ the PeBrOSs, for MCBIOS, vbh you w+have 
completed your patch). System parameters must be ini- 
tialized as shown below: 


foecation es 1>2 set'to JMPSWBOOT for warm starts 
(@000H: JMP 4A83H+b) 

location 3 Set anetial- value sof TOBY EE 2 -<Lt 
implemented in your CBIOS 

POeCat LON 710 +f set to JUMP —BDOS, ‘which.-its the 
Drimary Veniery”, point wpto €P/M for 
Eransirent * prograns.9 (VO0U5H: . IMP 
3C®@6H+b) 


(see Section 9 for complete details of page zero use) 
Uponmrconplecion Tots vthenyinitialization,, the» WBOOT 
program must branch to the CCP at 340@H+b to (re)start 
the system, “Upon Entry tothe CCP, register C is set 
to the drive to select after system initialization, 


Sample the status of the ‘currently, assigned console 
device and return OFFH in register A if a character is 
ready to’ cread,;- and‘ 00H .in>register A if.no console 
characters are ready. 


Read the next console character into register A, and 
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set. ,the.,.panlty bre (high order bit) to zero. Lime 
console character is ready, wait until a character is 
typed before returning. 


CONOUT Send the character from register C to the console 
output device, The. character is. an’ ASCII, with tiem 
order parity bit set to zero. You may want to include 
a time-out on a line feed or carriage return, if your 
console device requires some time interval at the end 
of the line (such as a TI Silent 760 terminal). You 
can, If your wish, filter? outicontrolycharacters wien 
cause your console device to react in a strange way (a 
control-z causes the Lear Seigler terminal to clear 
the screen, for examole). 


LIST Send the character from register C to the currently 
. assigned listing device, The ,charactér is in As@es 
with zero parity. 


PUNCH send the character,from reguster.¢. .to “the (curr aie, 
assigned punch device, The character is in ASCII with 
zero parity. 


READER Read the next character from the currently assigned 
reader device into register A with zero parity (high 
order.bit must be zero),.an.end,of ,£ile condition eas 
Leperted by\ returning ~@n: ASCII Vcontroli—z (1AH)s 


HOME Return the disk head of the currently selected disk 
(initially udisk A). tonthe. track MY position. | Ilias 
controller allows access to the track @ flag from the 
drive,.step, the.head, until, /thes, track: 0 tlagmam 
detected. If your controller does not support this 
feature, you can translate the HOME call into a call 
on SETTRK with a parameter of Q@. 


SELDSK Select the disk drive given by register C for further 
operations, where register C contains @ for drive A, l 
for «drive .B, and.so-forth,up to 15 for drive P ia 
Standard CP/M distribution version supports four 
drives). On each disk select, SELDSK must return in 
HL the base address of a 16-byte area, called the Disk 
Parameter Header, described in the Section 180. For 
standard floppy disk gdrives,s) the contents! of eum. 
header and associated tables does not change, and thus 
the program segment included in the sample CBIOS 
performs this operation automatically. If there is an 
attempt to select a non-existent drive, SELDSK returns 
HL=9@0@0H as an error indicator, Although SELDSK must 
return the header address on each call, it is 
advisable to postpone the actual physical disk select 
operation until an I/O function (seek, read or’ write) 
is actually performed, since disk selects often occur 
without utimately performing any disk I/O, and many 
controllers will unload the head of the current disk 
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before selecting the new drive. This would cause an 
excessive amount of noise and disk wear, 


SETTRK ' Register BC contains the track number for subsequent 
disk accesses on the currently selected drive. You 
can choose to seek the selected track at this time, or 
delay the seek until the next read or write actually 
OCCULS:< Register BC can take on values in the range 
0-76 corresponding to valid track numbers for standard 
floppy disk drives, and @-65535 for non-standard disk 
subsystems. 


SETSEC Reguvoler BCuCOntaiIns ne psecton miumoer (i through 1126) 
for subsequent disk accesses on the currently selected 
drive...You.can choose to send jthis information to the 
COnNGEOLLéEr; at .ACn1is., DOLNt,,, Ona einstead delay sector 
selection until a read or write operation occurs. 


SETDMA Register BC contains the DMA (disk memory access) 
address for subsequent read or write operations. For 
example, if B = @9H and C = 8@H when SETDMA is called, 
then all subsequent read operations read their data 
into. @Ou. throughs OF FH, .-and valli subsequent write 
operations get their data from 80H through OFFH, until 
Biewmanext« calle Le SETOMA  vocCcuLs, The initial DMA 


address is assumed to be 8dH. Note that the 
controller need not actually Support direct memory 
access, If, for example, all data is received and 


Sen ToOCoOucih ul Z,OnpOrta,y, cae CELLOS which you Construct 
will use the 128 byte area starting at the selected 
DMA address for the memory buffer during the following 
read or write operations, 


READ Assuming the drive has been selected, the track has 
been set, the sector has been set, and the DMA aadress 
has been specified, the READ Subroutine attempts to 
read one sector based upon these parameters, and 
returns the following error codes in register A: 


7) no errors occurred 
UE non-recoverable error condition occurred 


Currenuly, CPyYM respondssonly to a, zero, or “non-zero 
Vabtue jas vithe “return codge, That is, 1f the value in 
Pegister “ts wo chen \Cr/M cassumes? vEhat “the disk 
operation completeda properly. If an error occurs, 
however, the CBIOS should attempt at least 10 retries 
to see if the error is recoverable. When an error is 
reported the BDOS will print the message “BDOS ERR ON 
me BAD SECTOR", The operator then has the option of 
Ey plngaocr. co agnare the verror,. on cul=C to abort, 


WRITE Write the data from the currently selected DMA address 


to the currently selected drive, track, and_ sector, 
The, date, «should be “marked as “non deleted data” to 
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maintain compatibility with other CP/M systems, The 
error codes given in the READ command are returned in 
register A, with error recovery attempts as described 
above. 


Listes Return the ready status of the list device. Used by 
tne DESPOOL program to improve console response during 
its operation, The value #68 is returned in A it the 
list device is not ready to accept a character, and 
®@FFH if a character can be sent to the printer. Note 
that a @@ value always suffices, 


SECTRAN Pertorms sector logical to physical sector translation 
in order to improve the overall response of CP/M, 
Standard CP/M systems are shipped with a “skew factor" 
of 6, where six physical sectors are skipped between 
each logical read operation. This skew factor allows 
enough time between sectors for most programs to load 
their buffers without missing the. next sector, In 
particular computer systems which use fast processors, 
memory, and disk subsystems, the skew factor may be 
changed to improve overall response, Note, however, 
that you ishoulid” \naantain- a “singles density IBM 
compatible version of CP/M for information transfer 
into and out of your computer system, using a skew 
factor of 6. In general, SECTRAN receives a logical 
sector number in BC, and a translate table address in 
DE The sector number is used as an index into the 
translate ‘table, withthe... resulting sphysical ,seeuan € 
number in 4HL, For standard systems, the taoles and 
indexing code is provided in the CBIOS and need not be 
changed. 
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7. A SAMPLE BIOS 


The program shown in Appendix C can serve as a basis for your 
first BIOS. The simolest functions are assumed in this BIOS, so that 
youdcan enter lt, through thesfronts. panel, +a¢) absolutely . necessary. 
Note that the user must alter and insert code into the subroutines for 
CONST, CONIN, CONOUT, READ, WRITE, and WAITIO Subroutines, Storage is 
reserved for user-supplied code in these regions, The scratch area 
reserved in page zero, (See Section 9) for the BIOS is used in this 
program, so that it could be implemented in ROM, if desired. 


Once operational, this skeletal version can be enhanced to print 
the initial sign-on message and perform better error recovery. The 


subroutines for. LIST, PUNCH, and READER, can’ be filled-out, and the 
IOBYTE function can be implemented. 
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8. A SAMPLE COLD START LOADER 


The program shown in Appendix D can serve as a basis for your cold 
Start loader. The disk read function must be supplied by the user, 
ana the program must be loaded somehow starting at location 6000. 
Note that space is reserved for your patch so that the total amount of 
storage required for the cold start loader is 128 bytes. Eventually, 
you will probably want to get this loader onto the first disk sector 
(track @, sector 1):, ‘and cause your controller ‘to load it “into -memer, 
automatically upon system start-uo. Alternatively, you may wish to 
place tne cold start loader into ROM, and place it above the CP/M 
system, In this case, it will be necessary to originate the program 
at a higher address, and key-in a jump instruction at system start-up 
which branches to the loader. Subsequent warm starts will not require 
this key-in operation, since the entry point ‘WBOOT’ gets control, 
thus bringing the system in from disk automatically. Note also that 
the skeletal cold start loader has minimal error recovery, which may 
be enhanced on later versions, 


(All Information Contained Herein is Proprietary to Digital Research.) 


22 


¢ 


9. RESERVED LOCATIONS IN PAGE ZERO 


Main memory page zero, between locations @@H and FFH, contains 
several segments’ of code and data which are used during CP/M 
processing. The code and data areas are given below for reference 
purposes, i 


Locations Contents 
from to 
GQ00H - O002H Contains a jump instruction to the warm. start 


entry point at location 4A@3H+b. This allows a 
Simple programmed restart (JMP O@O800H) or manual 
restart from the front panel. 


000 3H 


000 3H Containstthe, intelirstandard:. LOBYTEL. which, is 
optionally. -included-.in.,the,-user+;s~,CB1OS, as 
described in Section 6, 


000 4H 000 4H Current default drive number (#=A,...,15=P). 


0@005H 


O007H Contains a lump. instruction tol,the  sp0S,and 
serves two purposes: JMP @805H provides the 
primary entry point to the BDOS, as described in 
the manual “CP/M Interface Guide," and LHLD 
QOYVG86H brings the address field of the 
instruction to the HL register pair. This value 
is the lowest address in memory used by CP/M 
(assuming the CCP is being overlayed). Note 
thatd thejeDDiey progkangiwild changesthe address 
field to r@fleét thé redutéd memory size in 
débug mode, 


00 3H 


Q0027H (interrupt locations 1 through 5 not: used) 


00308 


99378 (interrupt location § 6. | WoCts Curtently: wseeq |= 
reserved) 


9938H 


0@03AH Restart) ji -—eGontains a jump instruction into the 
DDT or SID program when running in debug mode 
for programmed breakpoints, but is not otherwise 
used by CP/M. 


90 3BH 


OO3FH (not currently used - reserved) 


0040H 


WO4EFH 16 byte area reserved for scratch by CBIOS, but 
iswenot, used. forsmany purpose-in the distribution 
version of CP/M 


0050H 


WY5BH (not currently used - reserved) 


W05CH 


007CH Gerawut wediiee weOneEY Ol: DIGCKN sorodnCed «TOr a 
Pialicvent.§ programs by. ~the Console Command 
PEOCeG SSO. 


Q9@07DH 


GO7FH Optional default random record position 
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O980H - OOFFH default 128 byte disk buffer (also filled with 
the command line when a transient is loadec 
under the CCP). 


Note that this information is set-up for normal operation under 
the CP/M system, but can be overwritten by a transient program if the 
BDOS facilities are not required by the transient, 


If, for example, a particular program performs only simple I/O and 
must begin execution at location @, it can be first loaded into the 
TPA, using normal CP/M facilities, with a small memory move program 
which gets control when loaded (the memory move program must get 
control from location @610@H, which is the assumed beginning of all 
transient programs). The move program can then proceed to move the 
entire memory image down to location @, and pass control to the 
starting address of the memory loaa, Note that 1f ‘the ~BiG@laia. 
Overwritten, or if location @ (containing the warm start entry point) 
is overwritten, then the programmer must bring the CP/M system back 
into memory with a cold start sequence, 
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18. DISK PARAMETER TABLES, 


Tables are included in the BIOS which describe the particular 
characteristics of the disk subsystem used with CP/M. These tables 
can be either hand-coded, as shown in the sample CBIOS in Appendix C, 
Or automatically generated using the DISKDEF macro library, as shown 
in Appendix B. The purpose here is to describe the elements of these 
tables. 


In general, each disk drive has an associated (l6-byte) disk 
parameter header which both contains information about the disk drive 
and provides a scratchpad area for certain BDOS operations, The 
format of the disk parameter header for each drive is shown below 


Disk Parameter Header 
feeXET S| -g0ee' > OOBO-T -P@000 TDIRBUFI” .DPB) |. CSV@ rl. .ALV* = | 
16b 16b 16b 16b 16b 16b 16b 16b 


where each element is a word (l6-bit) value. The meaning of each Disk 
Parameter Header (DPH) element is 


XLT Address of the logical to physical translation vector, 
if used for this particular drive, or the value @@@Q0H 
if no sector translation takes place (i.e, the physical 
and logical sector numbers are the same). Disk drives 
with identical sector skew factors share the same 
translate tables, 


BBBG Scratchpad values for use within the BDOS (initial 
value iS unimportant). 

DIRBUF Address of a 128 byte scratchpad area for directory 
operations within BDOS. All DPH's address the same 


scratchpad area, 


DPB Address of a disk parameter block for this drive, 
Drives with identical disk characteristics address the 
same disk parameter block, 


CSV Address of a scratchpad area used for software check 
for changed disks, This address is different for each 
‘DPH. 

ALV Address of a scratchpad area used by the BDOS to keep 


disk storage allocation information. This address is 
different for each DPH, 


Given n disk drives, the DPH's are arranged in a table whose first row 


of 16 bytes corresponds to drive @, with the last row corresponding to 
drive n-l. The table thus appears as 
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DPBASE: 


90 |XLT 00] 0000 | 6000 | 0800 |DIRBUFIDBP @@|CSV OB|ALV GOI 


$1 |XLT 01] 0800 | 0800 | 9908 |DIRBUF|DBP @1|CSV #1IALV 211 


n-1|XLTn-1) 0008 | 0800 | 098600 |DIRBUF|DBPn-1|CSVn-1]|ALVn-1 | 


where the label DPBASE defines the base address of the DPH table. 


A responsibility of the SELDSK subroutine is to return the base 
address of the DPH for the selected drive. The following sequence of 
operations returns the table address, with a @@®00H returned if the 
selected drive does not exist. 


NDISKS EQU 4 *NUMBER OF DISK DRIVES 
SELDSK: 
*SELECT DISK GIVEN BY BC 
LXI H,O@@00H * ERROR CODE 
MOV A,C *DRIVE OK? 
CPI NDISKS *CVare oO 
RNC *RET IF ERROR 
*NO ERROR, CONTINUE 
MOV jah oe * LOW (DISK) 
MOV H,B * HIGH (DISK) 
DAD H 2 *2 
DAD H kA 
DAD H : *8 
DAD H ©*16 
LXI D,DPBASE ;FIRST DPH 
DAD D s DPH (DISK) 
RET 


The translation vectors (XLT @@ through XLTn-1) are located 
elsewhere in the BIOS, and simply correspond one-for-one with the 
logical sector numbers zero through the sector count-l. The Disk 
Parameter Block (DPB) for each drive is more complex. A particular 
DPB, which is addressed by one or more DPH's, takes the general form 


| sSpT |BSH|IBLMIEXM| DSM | DRM _|AL@|ALLi CKS |. OFF 
16b 8b 8b 8b 16b 16b 8b 8b 16b 16b 
where each is a byte or word value, as shown by the "8b" or “1l6b* 


indicator below the field. 
SPT is the total number of sectors per track 


BSH is the data allocation block shift factor, determined 
by the data block allocation size, 


(All Information Contained Herein is Proprietary to Digital Research.) 


26 


EXM is the extent mask, determined by the data biock 
aliocation size and the number of disk blocks, 


DSM determines the total storage capacity of the disk drive 


DRM determines the total number of directory entries which 
can be stored on this drive AL@,AL1 determine reserved 
directory blocks. 


CKS is the size of the directory check vector 


OFF is the number of reserved tracks at the beginning of 
the (logical) disk. 


The values of BSH and BLM determine (implicitly) the data allocation 
size BLS, which is not an entry in the disk parameter block. Given 
that the designer has selected a value for BLS, the values of BSH and 
BLM are shown in the table below 


BLS BSH BLM 
1,024 6! 7 
2,948 4 iS 
4,096 5 31 
S792 6 63 

16,384 7 127 


where all values are in decimal. The value of EXM depends upon _ both 
the BLS and whether the DSM value is less than 256 or greater than 
255, as shown in the following table 


BLS DSM <9256 DSM? 255 
1,024 4) N/A 
2,048 1 4) 
4,896 3 i 
Gpl92 7 3 

16,384 cS vi 


The value of DSM is the maximum data block number supported by 
this particular drive, measured in BLS units, The product BLS times 
(DSM+1) is the total number of bytes held by the drive and, of course, 
must be within the capacity of the physical disk, not counting the 
reserved operating system tracks, 


The DRM entry is the one less than the total number of directory 
entries, which can take on a 16-bit value. The values of AL@ and ALl, 
however, are determined by DRM. The two values AL@® and AL] can 
together be considered a string of 16-bits, as shown below, 
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OO 010203 04°05 00.07 OS 99RO 11 (heels Tas 


where position @@ corresponds to the high order bit of the byte 
labelled AL@, and 15 corresponds to the low order bit of the byte 
labelled AL1. Each bit position reserves a data block for number of 
directory entries, thus allowing a total of 16 data blocks to be 
assigned for directory entries (bits are assigned starting at @@ and 
filled to the right until position 15). Each directory entry occupies 
32 bytes, resulting in the following table 


BLS Directory Entries 
1,024 32 times # bits 
2,048 64 times # bits 
4,096 128 times # bits 
8,192 256 times # bits 

16,384 512 times # bits 


Thus, if DRM = 127 (128 directory entries), and BLS = 1024, then there 
are 32 directory entries per block, reguiring 4 reserved blocks, In 
this case, the 4 high order bits of AL® are set, resulting in the 
values AL@ = @F@H and AL] = @@H. 


The CKS value is determined as follows: if the disk drive media 
is removable, then CKS = (DRM+l1)/4, where DRM is the last director‘ 
entry number, If the media is fixed, then set CKS =.@ (no director, 
records are checked in this case). 


Finally, the OFF field determines the number of tracks which are 
skipped at the beginning of the physical disk. This value is 
automatically added whenever SETTRK is called, and can be used as a 
mechanism for skipping reserved operating system tracks, or for 
partitioning a large disk into smaller segmented sections, 


To complete the discussion of the DPB, recall that several DPH's 
can address the same DPB if their drive characteristics are identical, 
Further, the DPB can be dynamically changed when a new drive is 
addressed by simply changing the pointer in the DPH since the BDOS 
copies the DPB values to a local area whenever the SELDSK function is 
invoked, 


Returning back to the DPH for a particular drive, note that the 
two address values CSV and ALV remain. Both addresses reference an 
area of uninitialized memory following the BIOS. The areas must _ be 
unique for each drive, and the size of each area is determined by the 
values in the DPB. 


The size of the area addressed by CSV is CKS bytes, which is 
sufficient to hold the directory check information for this particular 
drive, If CKS = (DRM+1)/4, then you must reserve (DRM+1)/4 bytes for 
directory check use. If CKS = @, then no storage is reserved. 
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The size of the area addressed by ALV is determined by the 
maximum number of data blocks allowed for this particular disk, and is 
computed as (DSM/8)+1. 


The CBIOS shown in Appendix C demonstrates an instance of these 
tables for standard 8" single density drives. It may be useful to 


examine this program, and compare the tabular values with the 
definitions given above. 
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ll. THE DISKDEF MACRO LIBRARY. 


A macro library is shown in Appendix F, called DISKDEF, which 
greatly simplifies the table construction process. You must have 
access to the MAC macro assembler, of course, to use the DISKDEF 
facility, while the macro library is included with all CP/M 2.9 
distribution disks. 


A BIOS disk definition consists of the following sequence of 
macro statements: 


MACLIB DISKDEF 
DISKS n 
DESKDER 220 yee. 
DISKDEF l 


eoeeee?ee? 


DISKDEF n-l 


ENDEF 


where the MACLIB statement loads the DISKDEF.LIB file (on the _ same 
disk as your BIOS) into MAC's internal tables. The DISKS macro call 
follows, which specifies the number of drives- to be configured with 
your system, where n is an integer in the range 1 to 16. A series of 
DISKDEF macro calls then follow which define the characteristics of 
each logical disk, 9@ through n-l (corresponding to logical drives A 
through P). Note that the DISKS and DISKDEF -macros' generate the 
in-line fixed data tables described in the previous section, and thus 
must be placed in a non-executable portion of your BIOS, typically 
directly following the BIOS jump vector, 


The remaining portion of your BIOS is defined following the 
DISKDEF macros, with the ENDEF macro call immediately preceding the 
END statement, The ENDEF (End of Diskdef) macro generates the 
necessary uninitialized RAM areas which are located in memory above 
your BIOS. 


The form of the DISKDEF macro call is 


DISKDEF dn,fsc,lsc,[skf],bls,dks,dir,cks,ofs, [0] 


where 
dn is the logical disk number, @ to n-l 
fsc is the first physical sector number (@ or 1) 
lsc is the last sector number 
skf is the optional sector skew factor 
bls is the data allocation block size 
dir is the number of directory entries 
cks is the number of "checked" directory entries 
ofs is the track offset to logical track 90 


[8] is an optional 1.4 compatibility flag 


The value “dn"“ is the drive number being defined with this DISKDEF 
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macro invocation. The "fsc" parameter accounts for differing sector 
numbering systems, and is usually @ or l. Theqywekse” 1s the ‘last 
numbered sector on a track. When present, the "skf" parameter defines 
the sector skew factor which is used to create a sector translation 
table according to the skew. If the number of sectors is less’ than 
256, a single-byte table is created, otherwise each translation table 
element occupies two bytes. No translation table is created if the 


Skt Parameter 1S “omitted” (or ‘equal’ to @). The “bls" parameter 
specifies the number of bytes allocated to each data block, and _ takes 
Of thes wvadues 4 )'624.,...§ 2048.24 4096. - 8192 ,.)-ori | g6384. Generally, 


performance increases with larger data block sizes since there are 
fewer directory references and logically, connected data records are 
Duysically close on the disk a? Furntherm, each directory .entry, addresses 
more data and the BIOS-resident ram space is reduced. The "“dks" 
SEpecities, the jtotaldask size::in "ibls® units i-That, is), -piuthe bis» = 
2048 and dks = 1000, then the total disk capacity is 2,048,000 bytes. 
If dks is greater than 255, then the block size parameter bls must be 
greater than 19024, TieiecValue grOfr:Sid1G” ~~ 1s u.the total number of 
directory entries which may exceed 255, if desired, The: 7¢ks" 
parameter determines the number of directory items to check on each 
directory scan, and is used internally to detect changed disks during 
System operation, where an intervening cold or warm start has not 
occurred (when this situation is detected, CP/M automatically marks 
the disk rnead/only so that,datapis snot subsequently destroyed). As 
stated in the previous section, the value of cks = dir when the media 
is easily changed, as is the case with a floppy disk subsystem, If 
the disk is permanently mounted, then the value of cks is typically @, 
since the probability of changing disks without a restart is quite 
low. The “ofs" value determines the number of tracks to skip when 
Mis Particular drive is addressed,,.,which,...can, be. used sto, .geserve 
additional operating system space or to simulate several logical 
drives on a single large capacity physical drive. Finally, the [9] 
parameter is included when file compatibility is required with 
versions of 1.4 which have been modified for higher density disks. 
This parameter ensures that only 16K is allocated for each directory 
record, as was the case for previous’ versions, Normally, this 
parameter is not included, 


For convenience and economy of table space, the special form 
DISKDEF ne 
gives disk i the same characteristics as a previously defined drive j. 


A standard four-drive single density system, which is compatible with 
yersion 1,4, is defined wsing the following macro; invocations: 
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DISKS 4 
DISKDEF 0,1,26,6,1024,243,64,64,2 
DISKDEF iN 

DISKDEF 2 
DISKDEF 3 


ENDEF 


with all disks having the same parameter values of 26 sectors per 
track (numbered 1 through 26), with 6 sectors skipped between each 
access, 1024 bytes per data block, 243 data blocks for a total of 243k 
byte disk capacity, 64 checked directory entries, and two operating 
system tracks, 


The DISKS macro generates n Disk Parameter Headers (DPH's), 
Starting at the DPH table address DPBASE generated by the macro. Each 
disk header block contains sixteen bytes, as described above, and 
correspond one-for-one to each of the defined drives, In. the. Veour 


drive standard system, for example, the DISKS macro generates a table 
of the form: 


DPBASE EQU $- 

DPEQ@: DW XLT@,8000H,8000H,0000H,DIRBUF,DPB9,CSVG,ALVG 
DPEL* DW XLTO ,9000H,9000H,0000H,DIRBUF,DPBO,CSV1,ALV1 
DPEZS DW XLTO ,90000H,0000H,9000H,DIRBUF ,DPB#,CSV2,ALV2 
DPES $ DW XLTO ,0000H,9000H,0000H,DIRBUF,DPB9,CSV3,ALV3 


where the DPH labels are included for reference purposes to show the 
beginning table addresses for each drive @ through 3. The values 
contained within the disk parameter header are described in detail in 
the previous section, The check and allocation vector addresses are 


generated by the ENDEF macro in the ram area following the BIOS code 
and tables, 


Note that. if: thes "skit" (skews factor) parameter, is” omittea van 


equal to 96), the translation table is omitted, and a ®9@00H value is 
inserted in the XLT position of the disk parameter header for the 
disk, In a “subsequent; cali=* to’ 4perform the logical to physaaam 


translation, SECTRAN receives a translation table address of DE = 
O@800H, and simply returns the original logical sector from BC in the 
HL register pair. A translate tablé “is constructed when the wens 
parameter is present, and the (non-zero) table address is placed into 
the corresponding DPH's. The table shown below, for example, is 
constructed when the standard skew factor skf = 6 is specified in the 
DISKDEF macr or calls 


ALTO: DB of MSP Ok, 25), 55 aL eee Sais ee eae 
DB 2 OA 12026), 0%, 2 fp Opee payee Oy 22 


Following the ENDEF macro call, a number of uninitialized data 
areas are defined, These data areas need not be a part of the BIOS 
which is loaded upon cold start, but must be available between the 
BIOS and the end of memory. The size of the uninitialized RAM area is 
determined by EQU statements generated by the ENDEF macro. Fora 
standard four-drive system, the ENDEF macro might produce 
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4C72 


BEGDAT EQU $ 
(data areas) 
ENDDAT EQU $ 
DATSIZ EQU S-BEGDAT 


4DBO 
913C 


which indicates that uninitialized RAM begins at location 4C72H, ends 
at 4DB@H-1, and occupies @13CH bytes. You must ensure that these 
addresses are free for use after the system is loaded. 


After modification, you can use the STAT program to check your 
drive characteristics, since STAT uses the disk parameter block to 
decode the drive information, The STAT command form 


STAT d:DSK: 


decodes the disk parameter block for drive d (d=A,...,P) and displays 
the values shown below: 


128 Byte Record Capacity 
Kilobyte Drive Capacity 
32 Byte Directory Entries 
Checked Directory Entries 
Records/ Extent 

Records/ Block 

Sectors/ Track 

Reserved Tracks 


rTHOMDAAAK 


Three examples of DISKDEF macro invocations are _ shown below with 
corresponding STAT parameter values (the last produces a ruil 
8-megabyte system). 


DISKDEF 9,1,53,,2045,256,128, 123.2 
r=4096, k=512, d=128, c=128, e=256, b=16, s=58, t=2 


DISKDEF 8,1,58,,2048,1824,300,0,2 
r=16384, k=2048, d=300, c=0, e=128, b=16, s=58, t=2 


DISKDEF @,1,58,,16384,512,128,128,2 
r=65536, k=8192, d=128, c=128, e=1024, b=128, s=58, t=2 
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12. SECTOR BLOCKING AND DEBLOCKING, 


Upon each call to the BIOS WRITE ,entry point, the CP/M | BDGs 
includes information which allows effective sector blocking and 
deblocking where the host disk subsystem has a sector size which is a 
multiple of the basic 128—-byte unit. The purpose here is to presents 
general-purpose algorithm which can be included within your BIOS which 
uses the BDOS information to perform the operations automatically. 


Upon each call to WRITE, the BDOS provides the following 
information in register C: 


normal sector write 
write to directory sector 
write to the first sector 
of a new data block 


Q 
1 
Z 


Condition ®@ occurs whenever the next write operation is into a 
previously written area, such as a random mode record update, when the 
write” is to ‘other than’ the first sector 0f an unallocated biock wen 
when the write is not into the directory area, Condition "1" e@eurs 
when a write into the directory area is performed, Condition 2 occurs 
when the first , record (only) of a newly allocated data biog ae 
written, In most cases, application programs read or write multiple 
128 byte sectors in seguence, and thus there is little overhead 
involved in either operation when blocking and deblocking. records 
since pre-read operations can be avoided when writing records, 


Appendix G lists the blocking and deblocking algorithms in _ skeletal 
form (this”~ file” is ‘included ‘on ‘your CP/M disk). Generally jaere 
algorithms map all CP/M sector read operations onto the host disk 
through an intermediate buffer which is the size of the host disk 
sector. Throughout the program, values and variables which relate to 
the CP/M sector involved in a seek operation are prefixed by “sek,” 
while those related to the host disk system are prefixed by “hst.” 
The equate statements beginning on line 29 of Appendix G define the 
mapping between CP/M and the host system, and must be changed if other 
than the sample host system is involved. 


The entry points BOOT and WBOOT must contain the initialization 
code starting on line 57, while the SELDSK entry point must be 
augmented by the code starting on line 65, Note that although the 
SELDSK entry point computes and returns the Disk Parameter Header 
address, it does not physically selected the host disk*’at this point 
(1t is selected later at READHST or WRITEHST). Further, SETTRK, 
SETTRK, and SETDMA simply store the values, but do not take any other 
action at this’ point, SECTRAN performs a trivial trivial functgenmees 
returning the physical sector number. 


The principal entry points are READ and WRITE, starting on lines 
118 and 125, respectively. These subroutines take the place of your 
previous READ and WRITE operations, 

The actual physical read or write takes place at either WRITEHST 
Or READHST, where all values have been prepared: hstdsk is the host 
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disk number, hsttrk is the host track number, and hstsec is the host 
sector number (which may require translation to a physical sector 


number). You must insert code at this point which performs the full 
host sector read or write into, or out of, the buffer at hstbuf of 
length hstsiz. All other mapping functions are performed by the 
algorithms. 


This particular algorithm was tested using an 80 megabyte hard 
disk unit which was originally configured for 128 byte sectors, 
producing approximately 35 megabytes of formatted storage. When 
configured for 512 byte host sectors, usable storage increased to 57 
megabytes, with a corresponding 480% improvement in overall response. 


In this situation, there is no apparent overhead involved in 
deblocking sectors, with the advantage that user programs still 
maintain the (less memory consuming) l]28~-byte sectors. This is 


Deimarily due, ,of course, «to the information provided by the BDOS 
which eliminates the necessity for pre-read operations to take place. 
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APPENDIX A: THE MDS COLD START LOADER 


; MDS-8808 Cold Start Loader for CP/M 2.0 
; Version 2.0 August, 1979 


e 
a 


GB00 = false equ 4) 
frftt = true equ not false 
Q008 = testing equ false 
af testing 
bias equ G3400h 
endif 
pip not testing 
0200 = bias equ 8880h 
endif 
0000 = cpmb equ bias s>base of dos load 
8806 = bdos equ 886h+bias sentry toldos for “calle 
1880 = bdose equ 188@h+bias ;end of dos load 
1608 = boot equ 1600h+bias -cold start.entry poine 
1603 = rboot equ boot+3 swarm start entry point 
3000 org 3000h >loaded here by hardware 
1880 = bdosl equ bdose-cpmb 
Q002 = ntrks egu 2 *tracks to read 
0031 = bdoss equ bdos1/128 *# sectors in bdos 
09019 = bdos@ equ 25 “Eronrcrack O 
018 = bdosl eau bdoss-bdos@ Nereotlat Hack... k 
£808 = mon8g@ equ ®£800h -;:intel monitor base 
fFEOE = rmon8g@ equ ®ffOfh ;restart location for mon8@ 
9078 = base equ 878h ;'base’ used by controller 
9079 = rtype equ basetl ;result type 
OB7b = rbyte equ baset3 ;result byte 
O@87f = reset equ base+7 ;reset controller 
9078 = dstat equ base -" "disk status port 
9079 = ilow equ baset+l ;low iopb address 
O07a = ihigh equ base+2 ;high iopb address 
O0ff = bsw equ ®ffh ;boot switch 
0003 = recal equ 3h srecalibrate selected drive 
0004 = readf equ 4h disk read function 
8100 = stack equ 199h suse end of boot for stack 
rstanc. 
3006 3190001 1xi sp,Stack;in case of call to mon8@ 
; clear disk status 
3083 db79 in rtype 
3805 db7b in rbyte 
; check 1fyboot switch iis off 
coldstarts: 
3007 dbff in bsw 
3888 £58730 ghd) *+ 1088) cat saeeuse choone 
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30Be 


3610 
3612 


3@15 
3016 
3018 
3619 
3@1b 


381? 


3022 
3024 
3026 


3928 


382b 


382d 
3@2e 
3031 
3032 


3034 


3037 
303a 
303b 
303c 


303£ 


a37E 


G682 
214230 


7d 
asi9 
7c 
d37a 
db78 


earb3e 


dadb79 
e603 
feg2 


d20030 


C20030 


118700 
nee) 
05 
621530 


c38016 


walit@: 


clear the controller 


out reset *logic cleared 
mvi b,ntrks :;number of tracks to read 
sia h,1o0pbé@ 


read first/next track into cpmb 


mov aya 

out - ilow 

mov a,h 

out ihigh 

in dstat 

SZ" waitd 

check disk status 

in rtype 

ani llb 

cpl 2 

ahs & testing 

cnc rmonssesgo) FO, monitor if 1) or 19 
endif 

if not testing 

IC rstartso}; retrye theldoad 

endif 

in rbyte 7i/o complete, check status 
if not ready, then go to mon8g@ 

ral 

cc rmon8@ ;not ready bit set 
rar srestore 

ani 1111@b ;overrun/addr err/seek/crcec 
iis testing 

cnz rmon8@ ;go to monitor 

endif 

Lf not testing 

THz rstart ;retry the load 

endif 

1xi d,iopbl ;length of iopb 

dad d saddressing next iopb 
der b scount down tracks 
jnz start 

jmp boot, print message, set-up jmps 
jmp boot 


parameter blocks 
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3042 88 Lopbe’: “db 80h 710cw, no update 


3043 64 db readf sread function 

3044 19 db bdos@ 7# sectors to read trk @ 
3045 02 db ) strack @ 

3946 82 db 2 sstart with sector 2, trk @ 
3047 BOBO dw cpmb *start at base of bdos 

0007 = iopbl equ $-iopbd@ 

3849 80 1LOpb1e gab 88h 

304a 04 db readf 

304b 18 db bdos] ssectors to read on track l 
304c 61 db 1 ,Erackw) 

304d @1 db 1 sector 1] 

304e 800c dw cpmb+bdos@*128 ;base of second rd 
3050 end 
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0014 


4aQ 
3400 
3c06 
1600 
@B2c 
0002 
OO04 
068 
0a 


4aQ@ 
4a@3 
4aG@6 
4a69 
4a@c 


(PS hee liae site there 


c3b34a 
e3c34a 
c3614b 
c3644b 
c36a4b 


< =e =e se seo te 


APPENDIX B: 


=e 76 TO @~H WE TWO 


cpmb 
bdos 
coml 
nsects 
offset 
cdisk 
buff 
OEY 


=e te TO VEO TSE TE =e se =e "6 TH TO TO MEO MO MO BO VO TE VO VO VO VO BH VE VO VEO 


wboote: 


mdas-8d@ 


THE MDS BASIC 1/07 SYSTEM 


(BIOS) 


W/O aGrivers/vtou cp/m 2.0 


(four drive single density version) 


version 2.@ august, 


As yA) 


equ 26 version 2.90 
GopyErighe) (cy 1979 
digital research 
box 579; ,pacific grove 
california, 939590 
org 4a@@h ;base of bios in 280k system 
equ 3400h base. of, com Cccp 
equ 3c@6h ;base of bdos in 28k system 
equ S-cpmb ;length (in bytes) of cpm system 
equ cpml1/128;number of sectors to load 
equ Z ;number of disk tracks used by cp 
equ 0804h saddress of last logged disk 
equ 098@h ;default buffer address 
equ 18 ;max retries on disk i/o before e 
perform following functions 
boot cold start 
wboot warm start (save i/o byte) 
(boot and wboot are the same for mds) 
const console status 
reg-a = ®@@ if no character ready 
reg-a = ff if character ready 
conin console character in (result in reg-a) 
conout console character out (char in reg-c) 
list LVSEVOULT (Char am, reg-c) 
punch punch out. (charjin-reg-c) 
reader paper tape reader in (result to reg-a) 
home move to track 6@ 


(the following calls set-up the io parameter bloc 


mds, 
seldsk 
settrk 
setsec 
setdma 


which is used to perform subseguent reads an 


select: disk given by reg-c (@,1,2..:) 

set track address (@,...76) for sub r/w 
set sector ,address.(l,.<.%26) 

set subsequent dma address (initially 80h 


read/write assume previous calls to set i/o parms 


read 
write 


read track/sector to preset dma address 
write track/sector from preset dma addres 


jump vector for indiviual routines 


jmp 
Jmp 
oP 
jmp 
jmp 


boot 
wboot 
const 
conin 
conout 
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4a0f 
4al2 


c36d4b 
c3724b 
4a15 c3754b 
4al8 c3784b 
4alb c37d4b 
4ale c3a74b 
4a21 c3ac4b 
4a24 c3bb4b 
4a27 c3cl4b 
4a2a c3ca4b 
4a2d c37@4b 
4a3@ c3b14b 


4a33+= 

4a33+824aGd 
4a37+@800000 
4a3b+6e4c73 
4a3f+@d4dee 
4a43+824a00 
4a47+008000 
4a4b+6e4c73 
4a4f+3c4dld 
4a53+824a0G 
4a57+000002 
4a5b+6e4c73 
4a5f+6b4d4c 
4a63+824a0@ 
4a67+000000 
4a6b+6e4c73 
4a6£+9a4d7b 


4a73+= 
4a73+1laOa 
4a75+063 
4a76+07 
4a77+00 
4a78+£200 
4a7at+3£090 
4a7ctcd 
4a7d+00 
4a7e+1000@ 
4a80+0 200 
4a82+= 
4a82+G1 
4a83+07 
4a84+0d 
4a85+13 
4a86+19 
4a87+05 
4a88+0b 
4a89+11 
4a8at+17 
4a8b+93 


=e 


dpbase 
dpeg: 


dpel: 


dpe2: 


dpe3: 


dpb 


x1t@ 


list 
punch 
reader 
home 
seldsk 
settrk 
setsec 


- setdma 


read 
write 
listst 
sectran 


slist status 


diskdef ;load the disk definition library 
4 s;four disks 
S ;base of disk parameter blocks 


x1t0,000Gh 
GBOGh,B99OHOh 
dirbuf,dpb@ 
csv@,alvé 
x1t1,0000h 
G000h,880bh 


dirbuf,dpbl 


csvl,alvl 
Xx1t2,0000h 
0000h,880Gh 
dirbuf,dpb2 
csv2,alv2 
x1t3,000Gh 
8000h,9008h 
dirbuf,dpb3 
csv3,alv3 


stranslate table 
scratch area 

;dir, buff,parm block 
check, alloc vectors 
;tranSlate table 
scratch area 

;dir buff,parm block 
check, alloc vectors 
s;translate table 
s;scratch area 

sar, DUEL,parm block 
s;check, alloc vectors 
;translate table 
scratch area 

sdir buff,parm block 
check, alloc vectors 


®,1,26,6,1024,243,64,64,offset 
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;disk parm block 
7;sec per track 
sblock shift 
sblock mask 
sextnt mask 
sdisk size-l 
;directory max 
salloc@ 

sallocl 

check size 
;offset 
stranslate table 


4a8ct+09 
4a8dt+Ft 
4a8et+15 
4a8£+982 
4a90+88 
4a9l1+@e 
4a92+14 
4a93+la 
4a94+06 
4a95+0c 
4a96+12 
4a97+18 
4a98+04 
4a99+Ba 
4a9at+1@ 
4a9b+16 


4a/3+= 
OG1lf+= 
0G18+= 
4a82+= 


4a/3+= 
QOV1f+= 
0618+= 
4a82+= 


4a73+= 
QO01f+= 
OB190+= 
4a82+= 


fd 
@Gfc 
G8E3 
GB7e 


£800 
£LOE 
£803 
£806 
£809 
£80c 
£80f 
ESt2 


dpbl 
alsl 
Css 
sad eed b 


dpb2 
als2 
css2 
x1lt2 


dpb3 
als3 
css3 
x1LC8 


e--e =e =@ =@ TOE SOS BOE MEO = 


csts 


diskdef 
equ 
egu 
equ 
equ 
diskdef 


-equ 


equ 
equ 
egu 
diskdef 
equ 
equ 
equ 
equ 


endef occurs at 


end of controller - independent code, 


x1t@ 


;egquivalent parameters 

-same allocation vector size 
;same checksum vector size 
‘same translate table 


;eguivalent parameters 

*same allocation vector size 
*same checksum vector size 
ssame translate table 


;equivalent parameters 

;same allocation vector size 
*same checksum vector size 
;Ssame translate table 

end of assembly 


the remaini 


are tailored to the particular operating environm 
be altered for any system which differs from the 


the following code assumes the mds monitor exists 
and uses the i/o subroutines within the monitor 


we also assume the mds system has four disk drive 


equ 
equ 
equ 
equ 


@fdh 
Bich 
Of3h 


;interrupt revert port 
sinterrupt mask port 
PiIncCerrupt \COnLErO, port 


@111$111@0b;enable rst O@(warm boot),rst 7 


mds monitor equates 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


Of£800h 
OffOfh 
®£803h 
®©f£806h 
®8£809h 
O£80ch 
®£80fh 
G@f£812h 
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smds monitor 

srestart mon8@ (boot error) 
;console character to reg-a 
sreader in to reg-a 
sconsole char from c to console o ' 
;punch char from c to punch devic 
"list ‘from c to list device 
;console status @@/ff to register 


4ac3 


4ac6 
4ac8 


4ac9 
4acc 
4acf 
4adl 
4ad4 
4ad6 
4ad9 
4adb 


4ade 
4adf 


GdGada 
3230 
6b2043£ 
322e30 
GdvavO 


3198001 


328400 
c30f4b 


318000 


QeGba 
Co 


810634 
cdbb4b 
GeWO 
cd7d4b 
VeWo 
cda74b 
GeG2 
cdac4b 


Slt 
G62c 


Cr 
a 


e 
Ul 


signon: 


LA 
boots: 


U 


= me 


boots; 


so se se St 


wboot@: 


=e =6 


disk ports and 


equ 
equ 
equ 
egu 


equ 
equ 


egu 
equ 
equ 
equ 
equ 
equ 


78h 
base 
basetl 
baset+3 


basetl 
baset+2 


commands 
sbase of disk command io ports 
s;disk status (input) 
sresult type (input) 
s;result byte (input) 


;lopb low address (output) 
s;iopb high address (output) 


sread function 
swrite function 
srecalibrate drive 
e1/o finished mask 
scarriage return 
sline feed 


>signon message: xxk cp/m vers y.y 


db Cr, lite le 

db nee ;Ssample memory size 

db "k cp/m vers ' 

db vers/10+'6','.',vers mod 16+'9' 
db cr, lisg 


;print signon message and go to ccp 
(note: mds boot initialized iobyte at @@@3h) 


1xi sp,buff+8@h 

UX h,signon 

call prmsg sprint message 

xra a *clear accumulator 

sta cdisk sset initially to disk a 
jmp gocpm 7go to cp/m 


loader on track @, sector 1, which will be skippe 
read cp/m from disk - assuming there is a 128 byt 
SEAL C. 


Lak sp,buff :;using, dma - thus 8@ thru ££ ok £ 
mvi c,retry ;max retries 

push b 

senter here on error retries 

lxi b,cpmb ;set dma address to start of disk 
call setdma 

mvi cao sboot from drive @ 

call seldsk 

mvi c,@ 

call settrk ;start with track @ 

mvi Caz sstart reading sector 2 

call setsec 

read sectors, count nsects to zero 

pop b ;1@-error count 

mvi b,nsects 


4 


2 


4ael 
4ae2 
4ae5 
4ae8 
4aeb 
4aee 
4aef 
4afd 
4afl 
4af4 
4af7 
4af9 


4afc 
4aff 
4b60 
4b@1 
4b04 
4b@85 
4b@6 
4b07 
4bdéa 
4bdb 
4b@c 


4b@f 
4b1@ 
4b12 
4b14 
4b15 
4b17 
4b19 
4blb 
4blec 


4ble 
4b21 


4b24 
4b26 
4b29 
4b2c 
4b2f 
4b32 
4b35 
4b38 
4b3b 
4b3e 


cdac4b 
cl 
05 
c2el4a 


£3 
3e12 
d3fd 
af 
d3fce 
3e7e 
d3fe 
af 
qd3.83 


0180090 


cdbb4b- 


3ec3 

320008 
21034a 
220100 
32058@ 
218063c 
220600 
323806 
2180£8 
223980 


rdsec: 


rdl: 


=o 


read next sector 


push 
call 
HIrz 
Ak eWite 
xa 
dad 


done with the load, 


b 
read 


booterr 


iod 
Gpi2o 
d 

Layee a) 
Cesk 
setdma 


Bal 
sector 
10t 

a 

Cra 
settrk 
a 

a 

c,a 
setsec 
b 

b 
rdsec 


;save sector count 

;retry if errors occur 
;increment dma address 

;sector size 

;incremented dma address in hl 
ai CaGy wor Call to set ina 


;Sector number just read 
;read last sector? 


267. 2ebrOuand GO cOunext. track 
;get track to register a 


smeady LOrecall 
;clear sector number 
>to next sector 
;ready for call 
whecalhyseccor .coune 


>done? 


reset default buffer address 


;eenter here from. cold start: boot) 
enable rst@ and rst7 


re gil 


set default buffer address 


Lxi 
call 


a, 12h 
revrt 
a 

Ln ce 
a,inte 
intc 

a 

1Con 


bebut f 
setdma 


sinitialize command 


cleared 
ES th ander St 7) D1 tsnOn 


Pierre COnNtr Ow 


to 8@h 


reset monitor entry points 


mvi 
sta 
lxi 
shld 
sta 
Lx2 
shld 
sta 
1x 
shld 


a, jmp 
Q 


h,wboote 


1 

5) 
h,bdos 
6 

TES 


h,mon8sg@ 


7*8+1 


;jJmp wboot at location @G 


-jmp bdos at location 5 
;Jmp to mon8@ (may have been chan 


leave iobyte set 


43 


4b41 
4b44 
4b45 
4b46 


4b49 
4b4a 
4b4b 


4b4e 
4b4f 


4b52 
4b55 
4b58 


4b5b 


4b6l 


4b64 


4b67 


4b69 


4b6a 


4b6d 


4b70 
4b71 


4b72 


4b75 


3a¥ 400 
4f 
fb 
c30034 


0d 
ca524b 


c5 
c3c94a 


215b4b 
cdd34b 
C3ULfre 


3£626f4 


CSEZES 


cdé@3f8 


e67f 


c9 


c309f8 


c30ff8 


af 
c9 


c30@cf8 


c306f8 


=e 


; 
; 
booterr: 


=e 


e 
Uy 


booter@: 


, 


bootmsg: 


? 
conouts: 


list: 


home : 


previously selected disk was b, send parameter to 


lda cdisk slast logged disk number 
mov C,a “Send 0 70 CD. CO) dod Luin 
el 

jmp cpmb 


error condition occurred, print message and retry 


pop b *recall counts 
chew Cc 

Vz booter®@ 

try again 

push b 

jmp wbootd 


otherwise too many retries 


1xi h,bootmsg 

cal prmsg 

jmp rmon8@ ;mds hardware monitor 
db 2 DOO A, OU 


console status to reg-a 
(exactly the same as mds call) 


Jmp csts 

;console character to reg-a 

call Ca 

ani fied gi ;remove parity bit 
ret 


console character from c to console out 
jmp Co 


s;list device out 
(exactly the same as mds call) 
jmp ie 


sreturn list’ status 
xra a 
ret ;always not ready 
spunch device out 

(exactly the same as mds call) 
jmp po 

;reader character in to reg-a 
(exactly the same as mds call) 
jmp ry 


;move to home position 
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VeW@ 
c3a74b. 


210000 


: treat as track @@ seek 


mvi 
jmp 


seldsk: ;select 


1xi 
Mov 
cpl 
rnc 


™=e 


anil 
sta 
mov 
ani 
ora 
FZ 

mvi 

setdrive: 

mov 
1xi 
mov 
ani 
ora 
Mov 


mov 
Mv.l 


dad 
dad 
dad 
dad 
lxi 
dad 
ret 


e 
Ul 


c,@ 
settrk 


disk given by register c 


h,@@@0h ;return @008 if error 
a,c 
ndisks ;too large? 
sleave hl = #880 
1@b 700 ®8@ for drive 9,1 and 1010 
dbank ;to select drive bank 
a,c $00, OUR Oo V1 
lb ;mds has @,1 at 78, 2,3 at 88 
a s;result @@? 
setdrive 
a,O@8@110090b s;selects drive 1 in bank 
b,a ;save the function 
hia of -io0 ‘function 
a,m 
118@1111b smask out disk number 
b smask in new disk number 
mM,a ;save it in iopb 
beg ;hl=disk number 
h 2 *2 
h 2 *4 
h 2 *8 
h °*16 
d,dpbase 
d shl=disk header table address 


settrk: ;set track address given by c 


lxi 
mov 
ret 


g 
setsec: ;set sector number given 


1x1 

mov 

ret 
sectran: 


mvl 


xchg 


dad 
mov 
sta 


mo 
re 


h,1ot 
m,c 


byrc 
h,ios 
myc 


stranslate sector bc using table at de 
b,@ ;double precision sector number 

*translate table address to hl 
b stranslate(sector) address 


a,m stranslated sector number to a 
ios 
l,a ;return sector number in l 


setdma: ;set dma address given by regs b,c 
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4bbb 
4bbc 
4bbd 
4bc@ 


4bcl 
4bc3 
4bc6 
4bc9 


4bca 
4bcc 
4bcf 
4bd2 


4bd3 
4bd4 
4bd5 


4bd6 
4bd7 
4bd8 
4bdb 
4bdc 
4bdd 


4be@ 
4be3 
4be4 
4be6 
4be7 


4be8 
4bea 
4bed 
4bee 
4bef 


4bf@ 


4bf2 


4bf5 


4bf8 


60 
226c4c 
c9 


GeW4 
cdeé 4b 
cdf@4b 
c9 


cd6a4b 


23 
c3d34b 


21684c 


Beda 


cd3f4c 
cd4c4c 


3a664c 


=e se 


write: 


Tse se fe 


rmsg: 


se 


o 
setfunc: 


o 


=e 


Ul 


waitio: 


rewait: 


=e 


mov Lic 
mov h,b 
shld iod 
ret 


sread next disk record (assuming disk/trk/sec/dma 


mv c,readf ;set to read function 

call setfunc 

call waitio ;perform read function 

ret smay have error set in reg-a 


>disk write function 


mvi Cy Whine 

call setfunc ;set to write function 
aa lili waitio 

ret smay have error set 


utility subroutines 
sprint message at h,l to @ 


mov a,m 

ora a *Zero? 
CZ 

more to print 

push h 

MOv Cpa 

eye oll conout 

pop h 

inx h 

jmp prmsg 


set function for next i/o (command in reg-c) 


1xi h,2of io function address 

mov a,m sget it to accumulator for maskin 
anil 11111808b sremove previous command 
ora C -set to new command 

mov m,a sreplaced in iopb 


the mds-80@ controller req's disk bank bit in sec 
mask the bit from the current i/o function 


ani GG1GBGBOGBb smask the disk select bit 
lxi h,ios saddress the sector selec 
ora m >select proper disk bank 
mov m,a »set disk select bit on/o 
ret 

mvi c,retry ;max retries before perm error 


start the i/o function and wait for completion 


call intype ;in rtype 
call inbyte ;clears the controller 
lda dbank set bank flags 
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4bfb 
DEC 
4bfe 
4cO@ 
4c@3 
4c@5 
4c6 
4c@8 


4c@b 
4céd 
4cée 


4cl@ 
4cl13 
4¢15 


4cl8 


4clb 
4cld 


4c2@ 
4c21 


4c24 
4c27 
4c28 
4c2b 
4c2c 
4c2e 


4c31 


4632 
4c35 


b7 
3e67 
064c 
c20b4c 
d379 
78 
d37a 
c31@4c 


d389 
78 
d38a 


cd594c 
e604 
cal@4c 


cd3f4c 


feg@2 
ca324c 


b7 
G2364¢ 


cd4c4c 
Ly 
da324c 
Le 
e6fe 
c2384c 


c9 


cd4c4c 
c3384c 


wait: 


=o @e 


=e 


=e se 


=e =e =e TO TO TO VE VA VO TE 


ora a ;ZeroO if drive ¢@,1l and nz 
mvi a,iopb and O@ffh ;low address for iopb 

mvi DELODD Shr3 ;high address for iopb 
jnz 1odrl ;drive bank 1? 

out ilow slow address to controlle 
Mov aab 
out ihigh shigh address 

jmp waitd ;to wait for complete 
>drive bank 1 

out ilow+1@h 788 for drive bank 1@ 

mov a,b 

out ihight+l@h 

call instat ;wait for completion 

ani 1ordy ;ready? 

Wa waité 


check 10 completion ok 
call intype ;must be io complete 
0@ unlinked i/o complete, 
1@ disk status changed 


(00) 
G1 linked i/o comple 
11 (not used) 


cpi 1b ;ready status change? 

Jz wready 

must be @@ in the accumulator 

ora a 

az werror ;some other condition, re 
CHECK 1/0 GCLELOr D> Lts 

cau inbyte 

ral 

jc wready sunit not ready 

rar 

ani PIII s;any other errors? 

jnz werror 

read or write is ok, accumulator contains zero 
ret 

;not ready, treat as error for now 

call inbyte ;clear result byte 

jmp trycount 

return hardware malfunction (crc, track, seek, e 


the mds controller has returned a bit in each pos 
of the accumulator, corresponding to the conditio 
- deleted data (accepted as ok above) 

- cre error 

- seek error 

- address error (hardware malfunction) 
data over/under flow (hardware malfunct 
- write protect (treated as not ready) 

- write error (hardware malfunction) 

- not ready 


ND SWNHEF 
I 
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; (accumulator bits are numbered 7 6 5 43 21 @Q) 
: it may be useful to filter out the various condit 
; but we will get a permanent error message if it i 
: recoverable, in any case, the not ready conditio 
; treated as a separate condition for later improve 
CEyCcounts 
: register c contains retry count, decrement ‘til z 

4c38 @d dcr c 

4c39 c2£24b jnz rewait ;for another try. 
; cannot recover from error 

4c3c 3e@1 mvi a,l serror code 

4c3e c9 ret 
; intype, inbyte, instat read drive bank @8 or 19 

4c3f 3a664c intype: lda dbank 

4c42 b7 ora a 

4c43 c2494c jnz intypl ;skip to bank 190 

4c46 db79 in rtype 

4c48 c9 ret 

4c49 db89 Pretty 1's) Sin rtype+tl@h 776 Lon O71) 980 shore ae 

4c4b c9 ret 

4c4c 3a664c inbyte: lda dbank 

4c4f b7 ora a 

4c5@ c2564c jnz inbytl 

4c53 db7b in rbyte 

4c55 c9 ret 

4c56 db8b inby tl ¢’4in rbyte+1@h 

4c58 c9 ret 

4c59 3a664c instat: lda dbank 

4c5c b7 ora a 

4c5d c2634c jnz instal 

4c6@ db78 in dstat 

4c62 c9 ret 

4c63 db88 instal: in dstat+1@h 

4c65 c9 ret 


; data areas (must be in ram) 
(—4c66 O88 dbank: db 4) disk bank 980 if drive 09,1 


: 16 if drive 2,3 
iopb: 710 parameter block 

4c67 88 db 88h snormal i/o operation 
4c68 64 iof: db readf ¥iO' TUNncez0On, initial read 
4c69 @1 ion: db i! snumber of sectors to read 
4c6a 62 1ot: db offset ;track number 
4c6b @1 10S: db hi sector number 
4c6c 8000 lod: dw buff 10 address 


define ram areas for bdos operation 
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4c6et+= begdat equ $ 

4c6e+ dirbuf: ds 128 ;directory access buffer 
4ceet alv@: ds 5k 

4d@d+ CcSVO: ds 16 

4dld+ alvl: ds 31 

4d3ct+ csvl: ds 16 

4d4ct alv2: ds Suk 

4d6b+ cSsv2: ds 16 

4da7b+ alv3: ds ope 

4d9at+ .CSV332 ds 16 
4daat= enddat equ $ 

G13ct= datsiz equ $-begdat 
4daa end 
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APPENDIX C: A SKELETAL CBIOS 


skeletal cbios for first level of cp/m 2.6 altera 


G@G14 = msize equ 20 scp/m version memory size in kilo 
: "bias" is address offset from 349@h for memory sy 
: than 16k (referred to as “b" throughout the text) 
GB008 = bias equ (msize-20) *1024 
3408 = ccp equ 349@h+bias sbase of ccp 
3c86 = bdos equ ccp+806h sbase of bdos 
4a@@ = bios equ ccp+1690h sbase of bios 
O004 = cdisk equ @904h scurrent disk number O=a,...,15=p 
9003 = iobyte equ 0803h sintel i/o byte 
4a0@ org bios sOrigin of this program 
9B2c = nsects equ (S-ccp) /128 swarm Start sector count 
: jump vector for individual subroutines 
4a0@ c39c4a jmp boot scold start 
4a83 c3a64a wboote: jmp wboot swarm Start 
4a86 c3114b jmp const sconsole status 
4a@9 c3244b jmp conin console character in 
4a0c c3374b jmp conout sconsole character out 
4a®£ c3494b jmp list slist character out 
4al12 c34d4b jmp punch spunch character out 
4a15 c34f4b jmp reader s;reader character out 
4a18 c3544b jmp home smove head to home posit: 
4alb c35a4b jmp seldsk ;select disk 
4ale c37d4b jmp settrk sset track number 
4a21 c3924b jmp setsec sset sector number 
4a24 c3ad4b jmp setdma sset dma address 
4a27 c3c34b jmp read esread disk 
4a2a c3d64b jmp write swrite disk 
4a2d c34b4b jmp listst sreturn list status 
4a36 c3a74b jmp sectran ssector translate 
: fixed data tables for four-drive standard 
; ibm-compatible 8" disks 
; disk parameter header for disk 89 
4a33 734a90 dpbase: dw trans, 9@00h 
4a37 880000 dw 080Gh,8000h 
4a3b £@4c8d dw dirbf,dpblk 
4a3f ec4d7@ dw chk@@,all1l9@ 
H disk parameter header for disk 91 
4a43 734a9@ dw trans,9000h 
4a47 800000 dw 0000h,8800h 
4a4b £@4c8d dw dirbf ,dpblk 
4a4f fc4d8f dw chk@1,a1101 
: disk parameter header for disk 92 
4a53 734a00 dw trans,@@80Gh 
4a57 O800000 dw 90900h,8008h 
4a5b £04c8d dw dirbf,dpblk 
4a5f Oc4eae dw chk@2,a1192 
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4a63 
4a67 
4a6b 
4a6f 


4344 
4a7Tb 
4a7f 
4a83 
4a87 
4a8b 


4a8d 
4a8f 
4a9@ 
4a9l 
4a92 
4a94 
4a96 
4a97 
4a98 
4a9a 


4a9c 
4a9d 
4aad 
4aa3 


4aa6 
4aa9 
4aab 
4aae 


4abl 
4ab3 
4ab5 


4ab7 


4aba 
4abb 
4abc 
4abd 
4abe 
4acl 


734a00 
GOKHOKD 
£04c8ad 
lc4ecd 


158586 
170369 
150268 
141aG6 
121804 
1816 


af 

320300 
320400 
c3ef4a 


318000 
Hews 

cd5a4b 
cd544b 


062c 
GeWD 
1602 


210034 


a 
dqa5 
e5 
4a 
cd924b 
rad | 


e 
Ue a 


; 
trans: 


dpblk: 


; 
a 
; 
v 
boot: 


wboots: 


loadl: 


disk parameter header for disk 63 


dw trans,@800h 
dw G806Gh,800GGHh 
dw dirbf,dpblk 
dw chk@3,a1163 


sector translate vector 


ap pet et titty eae tare 4s 6 eee 

db PIN 0 Soars el GS) *SeEctors 9 'O>1 le ie 
db 22.01 4 sectors 13), 1"4* 15-16 
db 20526, 6412 “sectorsal7,16°,19-70 
db 18,24,4,190 >sectors? 21,223 23°,'24 
db 16,22 ssectors 25,26 

;disk parameter block, common to all disks 
dw 26 ;sectors per track 
db 3 *DLOGCKE Shift ‘factor 
db 7 sblock mask 

db %) snull mask 

dw 242 disk size-l 

dw 63 ;directory max 

db 192 salloc @ 

db Q salloc 1 

dw 16 *check size 

dw Z strack offset 


end of fixed tables 


individual subroutines to perform each function 
;simplest case is to just perform parameter initi 


xta a ;zero in the accum 
sta iobyte ;clear the iobyte 
sta cdisk select disk zero 
jmp gocpm sinitializge“and go’ ‘to’ cp/ 


Simplest case is to read the disk until all sect 


Px: sp,80h suse space below buffer f 
mvi c,0 select disk @ 

call seldsk 

call home ;go to track 00 

mvi b,nsects sb counts # Of sectors to 
mvi ee *c has the current track 
mvi a? 7d has the next sector to 


note that we begin by reading track @, sector 2 s 
contains the cold start loader, which is skipped 


1x1 | styrene’ e) sbase of ,;p/m (initial lo 
;load one more sector 

push b *save sector count, current track 
push d *save next sector to read 

push h *save dma address 

mov Cyd sget sector address to register c 
call setsec ;set sector address from register 
pop b srecall dma address to b,c 
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Aac2 ¢5 push b s;replace on stack for later recal 


4ac3 cdad4b call setdma ;set dma address from b,c 
drive set to @, track set, sector set, dma addres 
4ac6o cdc34b cals read 
4ac9 feed cor O8h zany errors? - 
4acb c2a64a JAZ wboot ;retry the entire boot if an erro 


=o we 


no error, move to next sector 


4ace el pop h ;recall dma address 
4acf 118000 1x2 O28 ;dma=dmat+128 
4ad2 19 dad d ;new dma address is inh,l 
4ad3 dl pop d ;recall sector address 
4ad4 cl pop b ;recall number of sectors remaini 
4ad5 @5 der ee ;sectors=sectors-l 
4ad6 caef4a az gocpm ;transfer to cp/m if all have bee 
; more sectors remain to load, check for track chan 
4aq9 14 TE d 
4ada 7a mov a,d ;sector=27?, if so, change tracks 
4adb felb cpl yA 
4add daba4a AG loadl scarry generated if sector<27 
: end of current track, go to next track 
4ae0 1601 mvi reaped ;begin with first sector of next 
4ae2 Oc inr c strack=track+tl 
: Save register state, and change tracks 
4ae3 c5 push b 
4ae4 d5 push d 
4ae5 e5 push h 
4ae6 cd7d4b call settrk ;track address set from register 
4ae9 el pop h 
4aea dl ton DOD d 
4aeb cl pop b 
4aec c3ba4a jmp loadl ;for another sector 


: end of load operation, set parameters and go to c 
gocpm: 


4aef 3ec3 mvi a, VCs C3 Te vaswinpeetieeLuct ton 

4afl 320000 sta Q for Amp, COLwooot 

4af4 21034a 1. h,wboote ;wboot entry point 

4af7 220100 shld al ;set address field for jmp at @ 
4afa 320500 sta 5 COL aympacO dos 

4afd 21063c ey h,bdos ;bdos entry point 

4b00 220660 shld 6 ;address field of jump at 57) @enga 
4b03 918009 XY b,8@h ;default dma address is 8@h 

4b86 cdad4b call setdma 

4b09 fb el ;enable the interrupt system 

4b@a 3a0400 lda cdisk sget current disk number 

4b@d 4f mov C,a ;send to the ccp 

4bGe c30034 jmp CCU 790 to’ cp/m for further procegaum 


ay 


4bl1l1 
4b21 
4b23 


4b24 
4b34 
4b36 


4b37 
4b38 
4b48 


4b49 
4b4a 


4b4b 
4b4c 


4b4d 
4b4e 


4b4f 
4b51 
4b53 


4b54 
4b56 
4b59 


4b5a 
4b5d 
4b5e 
4b61 


3e80 
c9 


e67£. 
c9 
79 
c9 


79 
c9 


af 
c9 


79 
c9 


3ela 
e67f 
c9 


GeGo 
cda7d4b 
c9 


2100080 


Q se se se se se se 


onst: 


conin: 


? 
conout: 


4 ~e 
-- 
19) 
ct 


? 
listst: 


punch: 


Fy =e ze 


seldsk: 


eader: 


simple i/o handlers (must be filled in by user) 
in each case, the entry point is provided, with s 
to insert your own code 


console status, return @ffh if character ready, 


ds 18h space for status subroutine 
mvi a,00h 
ret 


console character into register a 


ds 10h ;Space for input routine 
ani Teo Stripy parity bit 
ret 


console character output from register c 


MOV a,c get to accumulator 
ds 10h s;space for output routine 
ret 


list character from register c 
mov wate character to register a 
ret snull subroutine 


sreturn list status (@ Tf not ready, l*1f'ready) 
xra a °*@ is always ok to return 
ret 


;punch character from register c 


mov a,c character to register a 
ret senull subroutine 


sread character into register a from reader devic 


mvi a,lah enter end of file for now (repla 
ani 7£h sremember to strip parity bit 
ret 


ifo drivers for the disk follow 
for now, we will simply store the parameters away 
in the read and write subroutines 


smove to the track @@ position of current drive 
translate this call into a settrk call with param 


mvi c,@ sselect track @ 
call settrk 
ret swe will move to 9@ on first read 


>select disk given by register c 


VB ei h,@@@0@h ;error return code 

mov anc 

sta diskno 

cpl 4 smust be between 9 and 3 


oe | 


dg 


79 
32e94c 


c9 
79 
32eb4c 


c9 


eb 
09 
6e 
2600 
c9 


69 
60 
22ed4c 


c9 


c3e64b 


’ 
settrk: 


; 
setsec: 


0 
sectran: 


setdma: 


rnc snorcanky alfiae5 fee 

disk number is in the proper range 

ds 10 ;space for disk select 
compute proper disk parameter header address 
lda diskno 


MOV l,a *l=disk number 6,1,2,3 
mvi h,@ shigh order zero 

dad h 2*2 

dad h 2*4 

dad h 2 *8 

dad h **16 (size of each header) 
Lx d,dpbase 

dad d >hl=.dpbase(diskno*l6) 


ret 


sset track given by register c 


mov age 

sta track 

ds 10h ;space for track select 
ret 


set sector given by register c 


mov are 

sta sector 

ds 10h ;space for sector select 
ret 


;translate the sector given by bc using the 
;translate table given by de 


xchg shl=.trans 

dad b shl=.trans(sector) 
mov 1,m ;l1 = trans(sector) 
mvi h,@ shl= trans(sector) 
ret swith value in hl 


;set dma address given by registers b andc 


Mov lee: slow order address 

mov hb shigh order address 

shld dmaad save the address 

ds 1h *space for setting the dma addres 
ret 


;perform read operation (uSually this is similar 
SO we will allow space to set up read command, th 
common code in write) 

ds 16h -set up read command 

jmp waitio ;to perform the actual i/o 


;perform a write operation 
ds 10h ;set up write commanu 


senter here from read and write to perform the ac 


operation, return a @@h in register a if the ope 
properly, and @lh if an error occurs during the yr 
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¢ 


4be6 
4ce6 
4ce8 


4ce9 
4ceb 
4ced 
4cef 


4cfO 
4cf@ 
4d70 
4da8sf 
4dae 
4dcd 
4dec 
4dfc 
4edc 
4elc 


4e2c 
@13c 
4e2c 


3e81 
c9 


=e =e =e =6@ @O 


ee =e S60 SO SO BO 


track: 
sector: 
dmaad: 
diskno: 


e 
a 


begdat 
adrrbés< 
all@@: 
all@l: 
all@2: 
all@3: 
chkdO: 
chk@l: 
chk@2: 
chkg3: 


enddat 
datsiz 


in this case, we have saved the disk number in ‘d 


ds 
mvi 
ret 


256 
aryl 


the track number in ‘track’ (8-76 
the sector number in ‘'sector' (l- 
the dma address in ‘dmaad' (9-655 
;Space reserved for i/o drivers 
s;error condition 

;replaced when filled-in 


the remainder of the cbios is reserved uninitiali 


data area, 


and does not need to be a part of the 


system memory image (the space must be available, 
between "begdat" and “enddat"). 


however, 


ds 
ds 
ds 
ds 


scratch 


Fe NM ND Nd 


;two bytes for expansion 
;two bytes for expansion 
;direct memory address 
disk number @-15 


ram area for bdos use 


$ 


*>beginning of data area 
;scratch directory area 
sallocation vector 
sallocation vector 
sallocation vector 
sallocation vector 
scheck vector @ 
scheck vector 1 
>check vector 2 
check vector 3 


Ome & 


send of data area 


S$-begdat;size of data area 


oye. 


G1900 


0814 


GB00 
34080 
3c 
4a0@ 


9100 
9193 
0106 


9198 


Gl1da 
@10d 
91190 
G@111 
8112 
6113 
9115 


0118 
8119 
Glla 
Gllc 


O11f 
9120 


a8 833 
218033 
G60 
GeGl 


cd0003 
118809 


felb 


APPENDIX D: 


e 
’ 


a 


msize 


° 
a 


° 
s 


A SKELETAL GETSYS/PUTSYS PROGRAM 


combined getsys and putsys programs from Sec 4. 
Start the programs at the base of the TPA 


org G109h 


equ 20 


- size of cp/m in Kbytes 


is the amount to add to addresses for > 29k 
(referred to as "b“ throughout the text) 


bias equ (msize-2@) *1924 

ccp equ 3480h+bias 

bdos equ ccp+889Gh 

bios equ ccp+1600h 

: getsys programs tracks @ and 1 to memory at 

: 388@h + bias 

: register usage 

: a (scratch register) 

: b track -counts40263 76) 

: c Sector counts ize 26) 

° d,e (scratch register pair) 

: Hel load address 

. sp set to stack address 

gstart: : start of getsys 
1xi sp,ccp-@98@h > convenient plac 
ix h,ccp-@080h > set initial loa 
mvi b,@ > start: with} trac 

rdStrk > read next track 
mvi elie | * each track star 

rdssec: 
call reads$sec > get the next se 
1xi a, h28 > offset by one s 
dad d : (hl=h1+128) 
ny awa c * next sector 
mov atic * fetch sector nu 
cpl 27 ; and see if la 
he rdsec > <, do one more 


> arrive here at end of track, move to next track 


gee b * track =.,trackrE 
mov a,b > check for tece 
cpl 2 * track = 2a 

ic rdStrk > <, do another 


; arrive here at end of load, halt for lack of anything b 


el 
hLle 


t 
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9200 


0200 
9203 
G@206 


0208 


020a 
920d 
9219 
@211 
@212 
§213 
UZ2L5 


8218 
@219 
O2la 
G21c 


O21f 
9220 


0300 


0300 
301 
0302 


9342 
0343 


3189833 
218033 
0600 


GeGl 


cddO04 
118000 
19 

Oc 

79 
felb 
daBaW2 


04 

78 
fed2 
daé802 


fb 
76 


e5 


el 
cl 


=e =e TO 


Org ($+0180h) and O££9Hh 
putSsys: 
xi sp,ccp-@9808h 
1xi h,ccp-@@88h 
mvi b,@ 
wrStrk: 
mvi Crew 
wrSsec: 
call writeSsec 
xi d,128 
dad d 
inr c 
mov a,c 
Col 27 
aC wrssec 


> arrive here at end of track, move to 


inr b 
MOv a,b 
Cpl 2 
Jc wrStrk 
: done with putsys, halt for lack 
ei 
eid au 


=e =e 06 


=e 


=e ~e@ 8 TO TO VO TO 


putsys program, places memory image starting at 
3880h + bias back to tracks @ and 1 
Start this program at the next page boundary 


convenient plac 
start of dump 
start with trac 


Start with sect 


write one secto 
length of each 
<hl>=<hl> + 128 
Score <C> rie 
see if 

past end of & 
no, dado another 


next track 


° 
Ud 
e 
a 
e 
Uy 
a 


track = track+l 
see if 

last track 
no, do another 


of anything bette 


; user supplied subroutines for sector read and write 


™=e 


org 


readSsec: 


=e =O6@ =O mE 


push b 
push h 
; user defined read operation goes here 
ds 64 
pop h 
pop b 


($+@108h) 


move to next page boundary 


and @ff£@0h 


read the next sector 


track’ 1Nn -<pb>., 
SECLOr an <C> 
dmaaddr in <hl> 


oul 


9344 


9400 


8400 
9401 
9402 
9442 


0443 
8444 


445 


c9 


c5 
e5 


el 
er 
c9 


ret 


org (S+81800h) and O£fFOOh * another page bo ¢ 


writeSsec: 


* same parameters as read$sec 


push b 
push h 
> user defined write operation goes here 
ds 64 
pop h 
pop b 
ret 


> end of getsys/putsys program 


end 
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Oy) 


0014 


QV6O 
3400 
4a@0 
0300 
4a0G 


>) 1990 
0032 


0008 B1H200 
00803 1632 
9805 210034 


=e =e ~e ™~C6 “8 “8 MO ~O SMe TO VS WE WS VO BW WSO VW =e 
> 


APPENDIX E: A SKELETAL COLD START LOADER 


this is a sample cold start loader which, when modified 
resides on track @@, sector @1 (the first sector on the 


diskette). we assume that the controller has loaded 


this sector into memory upon system Start-up. (Eh s pro 
gram can be keyed-in, or can exist in read/only memory 
beyond the address space of the cp/m version you are 
running). the cold start loader brings the cp/m system 
into memory at “loadp" (34@@h + "bias"). ina 20k 
memory system, the value of “bias” is 0@@8h, with large 
values for increased memory sizes (see section 2), afte 
loading the cp/m system, the clod start loader branches 
to the "boot" entry point of the bios, which begins at 
"bios" + "bias," the cold start loéder is not used un- 
til the system is powered up again, as long as the bios 
is not overwritten. the origin is assumed at O@89Gh, an 
must be changed if the controller brings the cold start 
loader into another area, or if a read/only memory area 
is used, 


Org i) ; base of ram in cp/m 
msize equ 20 ; Min mem size in kbytes 
bias egu (msize-20) *1624 ; offset from 20k system 
ecp equ 3409@h+bias ; base of the ccp 
bios equ ccp+1680h ; base of the bios 
biosl equ 6300h ; length of the bios 
boot egu bios 
size egu biostbiosl-ccp |;" size.of cp/m system 
sects equ size/128 > # of sectors to load 


=e 


begin the load operation 


cold: 
x bee > b=0, c=sector 2 
mvi d,sects : d=# sectors to load 
1xi hpBeco > base transfer address 
Sects). \Load the next Sector 


=e =-e "8 @@ @=8 ~e MVE 


insert inline code at this point to 
read one 128 byte sector from the 
back Giwen win register b, sector 
given in register oc, 

into the address given by <hl> 


branch’ towlocation +"colda” tifa read serrop occurs 


2) 


KKEKKEKKKKKKKEHKKKKEKEKKKEKKKKKEKKEKKEKKEKREKREKEKEKKKKEKKEEKEER 
* 


* user supplied read operation goes here... 
* 


KKKKKRKKKEKKKEKEKEKKEKRRKEEKKEKKEKEKEKRKKEKEKKEKEEKRKEEEKKKRKEKKKEKKEKE 


=e =68 OS =6 TE 


0008 c36b9B jmp pastSpatch > remove this when patche 
QGBBb ds 60h 
pastS$patch: 
+ go to next sector if load is incomplete 
@86b 15 ei ey « d > sects=sects-l 
G@G6c ca¥b4a a boot > head for the bios 


more sectors to load 


we aren't using a stack, so use <sp> as scratch registe 
to hold the load address increment 


=e =e =6 TE 


9G6£ 318000 1xi sp,128 > 128 bytes per sector 
9072 39 dad sp ecni> = <n +7 12s 
0073 Oc ine re > sector = sector + l 
0074 79 mov a,c 

9075 felb cpl 27 » ‘last ‘sector of tracks 
0077 da@80u ike! lsect > no, go read another 


> end of track, increment to next track 


GB7a WeGWl mvi rome tI * sector = l 

GB7c O4 aba g b tr ack. =a sot ACK iene 
QB7d c30800 jmp lsect > for another group 
0080 end * of boot loader 
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APPENDIX F: CP/M DISK DEFINITION LIBRARY 


CP/M 2.0 disk re-definition library 


,Copynrgnt (cy, 1979 


Digital Research 
Box 5779 

Pacific Grove, CA 
93950 


CP/M logicél disk drives are defined using the 


macros given below, where the sequence of calls 
ies 


disks iy 

diskdef parameter-list-9 
diskdef parameter-list-l 
diskdef parameter-list-—n 
endef 


where n is the number of logical disk drives attached 
to the CP/M system, and parameter-list-i defines the 
Characteristics or "thevith darive.(1=0 ;P>)oo.n—1) 


each parameter-list-i takes the form 
an, isc,lsc,([skt),bls,dks,dir,cks,ofs, (0) 


where 

dn is the disk number @,1l,...,n-l 

fsc is tne first sector number (usually @ or 1) 
lsc is tne last sector number on a track 

Skf 1S Optional “skew factor”“ for sector translate 
bls is tne data block size (1024,2048,...,16384) 
dks is tne disk size in bls increments (word) 

OLE is tne number of directory elements (word) 

cks is tne number of dir elements to checksum 

ofs is the number of tracks to skip (word) 

[0] is an optional @ which forces 16K/directory en 


for convenience, the form 

dn,dm 
defines disk dn as having the same characteristics as 
a previously defined disk dm. 


a standard four drive CP/M system is defined by 


disks 4 

diskderf @,1,26,6,1024,243,64,64,2 
dsk set Qg 

rept 3 
dsk set dsk+l1l 

diskdef %dsk,@ 

endm 

endec 


the value of “begdat" at the end of assembly defines t 


61 


=e So Se TO RO ZO BSE VO 


dskhdr 


dpe&dn: 


disks 
ndisks 
dpbase 


dsknxt 


dsknxt 


dpbhdr 
dpb&dn 


beginning of the uninitialize ram area above the bios, 
while the valve of "enddat" defines the next location 

following the end of the data area) the size of Jebus 

area 1s given by the value, of “datsiz” at the end oree 
assembly. note that the allocation vector will be qui 
large if a large disk size is defined with a small blo 
size. 


macro dn 
Gefine a single disk neader list 


dw xlt&dn,08Gbh stranslate table 

dw GOGbh,BOOGh scratch area 

dw dirbuf,dpb&dn sdir buff,parm block 
dw csv&an,alvédn check, alloc vectors 
endm 


macro nd 
define nd disks 


set nd s2fOor Water reterence 

equ $ sbase of disk parameter blocks 
generate the nd elements 

set " 

rept nd 

dskhdr %dsknxt 

set dsknxct+l 

endm 

endm 


macro dn 
equ S$ sdisk parm block 
endm 


macro data,comment 

define a db statement 

db data comment 
endm 


macro data,comment 

define a dw statement 

dw data comment 
endm 


macro m,n 

greatest common divisor of m,n 

produces value gcdn as result 

(used in sector translate table generation) 


set m s>svariable for m 
set n *svariable for n 
set ) ss;variable for r 
rept 65535 

set gcdm/gcdn 

set gcdm - gcdx*gcdn 

af gcdr = 9g 

exitm 

endif 
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169: 


112: 


jig 


129: 
13: 


joe 


wee 
ine 
13 '3:s 


gcdm 
gcdn 


=e Q, =e 


dpb&dn 
als&dn 
css&dn 
xlt&dn 


secmax 


SeCEOrs 


als&dn 
alsé&dn 
css&dn 


Pitvet 
bik she 
blkmsk 


blkshf 
olkmsk 
blkval 


olkval 
extmsk 


extmsk 
blkval 


7 
extmsk 
7? 
extmsk 


ee 
ag 


dirrem 


iskde£ 


set 
set 
endm 
endm 


macro 


gcdn 
gcdr 


dn,fsc,lsc,skf,blis,dks,dir,cks,ofs,k16 


generate the set statements for later tables 


it 
current 
equ 
equ 
equ 
equ 
else 
set 
set 
set 
nie 
set 
endif 
set 


nul lsc 

disk dn same as previous fsc 

dpb&fsc ;eauivalent parameters 
als&fsc ;same allocation vector size 
css&f£sc ;same checksum vector size 
xlt&fsc ;same translate table 


lsc-(fsc) 7; SCCCOrSHTOLe .secmax 
secmax+tl;:;number of sectors 

(dks)/8 ;;size of allocation vector 
((dks) mod co) ne g 

als&dnt+l 


(cks)/4 ;;number of checksum elements 


generate the block shift value 


set 
set 
set 
rept 
if 
exitm 
endif 


b1ls/128 ;:number of sectors/block 


Gg ; counts Tight O' sian blkval 
4 Pie oe wath 1°s foom right 

16 prponce: for’ each biti/position 
blkval=1 


otherwise, high order 1 not found yet 


set 
set 
set 
endm 


blkshf+1 
(bikkmsk: shi. 1) sor 1 
blkval/2 


generate the extent mask byte 


set 
set 
GEpe 
phs 
exitm 
endif 


b1ls/1024 ;;number of kilobytes/block 
4) Teel oorom right wath 1's 

16 

blkval=l1 


otherwise more to snift 


set 
set 
endm 


(extmsk shl 1) or l 
blkval/2 


may be double byte allocation 


if 


set 


endif 


(dks) > 256 
(extmsk shr 1) 


may be optional [9] in last position 


if 
set 
endif 


NOt apis keds 
k16 


now generate directory reservation bit vector 


set 


dir ;7# remaining to process 
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dirbks 
dirblk 


=e =e 


dirblk 
dirrem 


dirrem 


ee 
oe 


x1lt&dn 


xlt&dn 


77 
nxtsec 
nxtbas 


ltst 


=e ~o i} =o 
=e se (D =e 


nelts 
xlté&dn 


nxtsec 
nxtsec 


nelts 


set bis/32 snumber of entries per block 


set ") sfill with 1's on each loop 

rept 16 i 
LE dirrem=¢ f 
exitm 

endif 


not complete, iterate once again 
shift right and add i ‘thighiiorder bit 


set (dirblk shr i) or 8900h 

if dirrem > dirbks 

set dirrem-dirbks 

else 

set Q 

endif 

endm 

dpbhdr dn *;generate equ $ 

ddw $sectors,<;sec per track> 

ddb tolkshf,<;blcck shift> 

ddb %olkmsk,<;:bleck mask> 

ddb sextmsk,<;extnt mask> 

ddw %(dks)-1,<;aisk size-1l> 

adw %$(dir)-l,<;airectory max> 

ddb $dirodlk shr 8,<;allocUé> 

ddb $dirblk ana @ffh,<;allocl> 

ddw %$(cks)/4,<;check size> 

ddw sofs,<;offset> 

generate the translate table, if requested 
if nul skf£ 

egu 7) sno xlate table 
else 

if skf = @ 

equ 7) sno xlate table 
else 

generate the translate table 

set @ :sHiext sector tori 
set 4) s;mcves by one on overflow 
gcd sectors,skf 

gcdn = gcd(sectors,skew) 

set sectors/gcdn 


neltst is number of elements to generate 
before we overlap orevious elements 


set neltst ;;counter 

equ $ stranslate table 
rept sectors ;;once for each sector 
if sectors < 256 

ddb $nxtsect+(fsc) 

else 

ddw $nxtsect+(fsc) 

endif 

set nxtsect(skf£) 

if nxtsec >= sectors 

set nxtsec-sectors 

endif 

set nelts-1l 

1 nelts = @ 
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nxtbas 
nxtsec 
nelts 


endet 
7? 


begdat 


dirbuf: 


asknxt 


dsknxt 


enddat 
datsiz 


set 
set 
set 
endif 
endm 
endif 
endif 
endm 


macro 
ds 
endm 
macro 
aefds 
endm 


macro 


nxtbasti 
nxtbas 
neltst 


end ior nul fac test 
meena Or cul Dic test 


lab,space 
space 


ordi vat 
lb&dn, $val&dn 


generate the nec2ssary ram data areas 


egu 
ds 
set 
rept 
lds 
lds 
set 
endm 
equ 
equ 


$ 

1268 ;directory access buffer 
9) 

ndisks ;;once for eacn disk 


alv,sdsknxt,als 
csv,%*dsknxt,css 
adsknxt+l 


$ 
S-begdat 


aby -at *tnis point forces hex record 


endm 
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APPENDIX G: BLOCKING AND DEBLOCKING ALGORITHMS. 


oe KKKKKEKKEKKEKKEKEKKEKKKEKKKKKEKEKKEKKEKKEKKKKKKEKKKKEKEKEKKKKKKEKE 
e 


ex * 
2 * Sector Deblocking Algorithms for CP/M 2.90 * 
x * 
: KKEKKKKKEKREKKKEKKEKKEKKEKEKKEKRKKKKKEKKKEKRKEEKKEKEKRKEKKRKEKEKEKEKEE 
; utility macro to compute sector mask 
smask macro hb1lk 
7° compute log2(hblk), return @x as result 
3s (2 ** @x = hblk on return) 
@y set hb1lk 
@x set Y) 
re count right shifts of @y until = 1 
rept 8 
if @y = 1 
exitm 
endif 
3 @y is not 1, shift right one position 
@y set @y shr l 
@x set @x + 1 
endm 
endm 


KKKEKKKKEKKEKKEKKEKKEKKKRKEKEREKKKEEKKEKEKEKKKEREKKEKERKEKEEKKKKEKKEKKE 


e@ =e se we te 
t+ F Ft 


® 
CP/M to host disk constants _ 
* * 
: KHRKKIKKKKEKKEKKEKKEKEKKEKEKEKKEKEKRKKKKEKKKKEKEKRKEKREKEKEKEKKKEKKEKEKEE 
blksiz equ 2048 CP/M allocation size 
hstsiz equ 512 shost disk sector size 
hstspt equ 20 shost disk sectors/trk 
hstblk equ hstsiz/128 CP/M sects/host buff 
cpmspt equ hstblk * hstspt ;CP/M sectors/track 
secmsk equ hstblk-1 *sector mask 
smask hstblk scompute sector mask 
secshf egu @x >log2 (hstblk) 
; KREKKKEKRKKKKEKKKKEKKKEKKEKEKKEKREKKEKKEKKEKKEKEKKEKKKEKKEKKEKKEKEE 
0 * * 
fis BDOS constants on entry to write 3 
o *& * 
: KEREKKKKEKKKKEKEKKKEKEKKEKEKRKEKKKEKEKKEKREKKEKEKEKREKRKKKEKEKEKKEKEKKKEKER 
wrall equ Y) ;write to allocated 
wrdir equ 1 swrite to directory 
wrual egu 2 swrite to unallocated 


@ 
e 


H RKEKKKEKEKEKEKKEKRKEKEKEKKEKKEKRKKEKKEKRKKKEEKKEKEKRKEKKEKEKEKKEKEKKEKKEKKKSE 


7x . ; & 
2 The BDOS entry points given below show the . 
ox code which is relevant to deblocking only. ys 
ox * 


’ 
eo KRKKKKKKEKEKKEKKEKKKKKEKEKKEKKEKRKEKKEKKKEKRKKEKKEKKEKEKEKKKEEKRKEEE 


a 
e 
a 
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seldsk: 


settrk: 


e 
a 


setsec: 


? 
setdma: 


e 
a 


sectran: 


™-e 


DISKDEF macro, or hand coded tables go here 
egu $ ;disk param block base 


renter here on system boot to initialize 


xra a 7>@ to accumulator 

sta hstact shost buffer inactive 
sta unacnt sclear unalloc count 
ret 


select disk 


Mov a,c ;selected disk number 
sta sekdsk ;seek disk number 
mov l,a ;disk number to HL 
mvi h,@ ) 
rept 4 ;multiply by 16 

dad h 

endm 

lxi d,dpbase ;base of parm block 
dad d ;hl=.dpb(curdsk) 

ret 


;set track given by registers BC 


mov hep 

mov bic 

shld sektrk ;track to seek 
ret 


;set sector given by register c 


mov a,c 
sta seksec ssector to seek 
ret 


;set dma address given by BC 


mov h,b 
mov oC 
shld dmaadr 
ret 


;translate sector number BC 


mov mn, b 
mov Ay ie 
ret 
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104: 


KKK KKKKKKKKKKKKKKKKKKEKEKKKKKEKKKEKEEKEKKEKEKKKKKKEKKKKEKKEKKE 
g 


ox * 
0 
hl The READ entry point takes the place of * 
iad the previous BIOS defintion for READ. % 
x * 
SISO GIG ICIISICICITICICIIOIIIOI ISOC IIIT ICICI OCC II III 
read: 

sread the selected CP/M sector 

mvi ail 

sta readop sread operation 

sta rsflag smust read data 

mvi a,wrual 

sta wrtype streat as unalloc 

jmp rwoper sto perform the read 
DCIS IOI IGICICICIOIIEICIOGIICICI III CIOCICICICICCI ICICI ICCC 
o * * 
Hes The WRITE entry point takes the place of m 
2 ix the previous BIOS defintion for WRITE, - 
7 x* * 
PICO GICOICICI OID ICCC III II 
write: 

swrite the selected CP/M sector 

xra a °@ to accumulator 

sta readop snot a read operation 

Mov a,c swrite type inc 

sta wrtype 

cpl wrual swrite unallocated? 

JAZ chkuna scheck for unalloc 
s 
: write to unallocated, set parameters 

mvi a. biLkSsi7/7128 snext unalloc recs 

sta unacnt 

lda sekdsk disk to seek 

sta unadsk eunadsk = sekdsk 

lhlid sektrk 

shld unatrk sunatrk = sectrk 

lda seksec 

sta unasec sunasec = seksec 
chkuna: 

check for write to unallocated sector 

lda unacnt sany unalloc remain? 

ora a 

|Z alloc sskip if not 
g 
: more unallocated records remain 

dcr a sunacnt = unacnt-l 

sta unacnt 

lda sekdsk ;same disk? 

Ka h,unadsk 

cmp m ;sekdsk = unadsk? 

jnz alloc SKID MPL BOL 
. disks are the same 
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=e 6 


=e 


=e 


™-=e se 


noovf: 


alloc: 


e 
’ 
’ 
o * 
’ 
ox 
s 
0 
’ 


2 * 


rwoper: 


=e Te 


LX h,unatrk 
Gaia sektrkcmp ;sektrk = unatrk? 
jnz alloc Skip if. not 


tracks are the same 


lda seksec *same sector? 

Le. h,unasec 

emp m ;seksec = unasec? 
jnz alloc Skip di tom t 


match, move to next sector for future ref 


inr m ;unasec = unasectl 
mMOv a,m 7end of track? 

cpu: cpmspt ;count CP/M sectors 
ye noovft ;Skip if no overflow 


Overflow to next track 


mvi m,@ sunasec = Q 

lhlid unatrk 

inx h 

shld unatrk sunatrk = unatrk+l 


;match found, mark as unnecessary read 


xra a 7-8 to accumulator 
sta rsflag srsflag = @ 
jmp rwoper ;to perform the write 


;not an unallocated record, requires pre-read 


xra a 7;@ to accum 
sta unacnt sunacnt = @g 
inr a el» to accum 
sta rsflag ;rsflag = 1 


eR KEKKKKKEKKKKKEKKKKEKKKKKKEEWHEREKEKKKKEKKKEKKKEKEKRKKRKEKKKKKKES 


Common code for READ and WRITE follows 


e KK KKKKKKKKEKEKKKEKEKKKEKKKKKEKEKKKKKEKEKKKKKKKKKKKEKKKKKEK 


;enter here to perform the read/write 


xra a ;zero to accum 

sta erflag ;no errors (yet) 

lda seksec ;compute host sector 
rept secshf 

ora a ;carry = @ 

rar -ShHitt .agnt 

endm 

sta sekhst shost sector to seek 


active host sector? 


ex 1 h,hstact ;host active flag 
mov a,m 
mvi m,l salways becomes 1 
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=e 


=e 


a 


nomatch: 


filhst: 


Match: 


ora a swas it already? 
\z filhst >fill host if not 


host buffer active, same as seek buffer? 
lda sekdsk 


1lxi h,hstdsk ssame disk? 
cmp m >sekdsk = hstdsk? 
aie. nomatch 


same disk, same track? 


1x1 h,hsttrk 
call sektrkcmp esektrk = hsttrk? 
{nz nomatch 


same disk, same track, same buffer? 
lda sekhst 


1x1 h,hstsec ssekhst = hstsec? 
cmp m 

jz match sskip if match 
sproper disk, but not correct sector 

lda hstwrt shost written? 
ora a 

onz writehst clear host buff 


smay have to fill the host buffer 
lda sekdsk 
sta hstdsk 
Tthyrd sektrk 
shld hsttrk 


lda sekhst 

sta hstsec 

lda rsflag *sneed to read? 
ora a 

cnz readhst ;yes, if l 

xra a °8@ to accum 

sta hstwrt ;no pending write 


scopy data to or from buffer 


lda seksec smask buffer number 
ani secmsk sleast signif bits 
mov i Pag sready to shift 
mvi h,@ double count 

rept 7 shift left 7 

dad h 

endm 

hl has relative host buffer address 

1xi d,hstbuf 

dad d shl = host address 
xchg snow in DE 

lhlid dmaadr sget/put CP/M data 
mvi Cy.L23 slength of move 
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; 
rwmove : 


=e 6 


™-~e 0 


=e 


lda readop ;which way? 
ora a 
jnz rwmove ;skip if read 


write operation, mark and switch direction 


mvi aioe. 
sta hstwrt shstwrt = 1 
xchg ;source/dest swap 


CeunliClally 125, De clo source. HL 1s dest 


ldax d *source character 
inx d 

mov m,a sto dest 

rx h 

dcr a ;loop 128 times 
jnz rwmove 


data has been moved to/from host buffer 


lda wrtype swrite type 

cpi wrdir ;to directory? 

lda erflag sin case of errors 

rnz sno further processing 


clear host buffer for directory write 


ora a eerrors? 

Enz skip if so 

xra a 7@ to accum 

sta hstwrt buffer written 
call writehst 

lda erflag 

ret 


CR KKKKEKKKKEKKEKKKEKEKRKEKEKKEKKEKKKEEKKKEKEKEKKEKEKKKKEKKEKEKRKEKKKER 


=e =e =e8 @ 
+ + € 


* 


Utility subroutine for 16-bit compare ts 
* 


g RHKEEKKEKKKARKERERE KKK KKKKKEREKREREREREKERERKERERKE KKK | 


sektrkcmp: 
sHL = ,unatrk or .hsttrk, compare with sektrk 
ep ce) oe 
Px h,sektrk 
ldax d ;low byte compare 
cmp m ;same? 
rnz sreturn if not 
: low bytes equal, test high ls 
inx | 
inx h 
ldax d 
cmp m ssets flags 
ret 
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oR KK RK REM EN RRR BE RK KH & eR eee 


o* * 
Ul 

o% WRITEHST performs the physical write to * 
ot the host disk, READHST reads the physical * 
7 * disk. cs 
o * * 
‘ * 


gREKERERAER HREM REIMER ERE RARER ERE REARS ee SN 


writehst: 
shstdsk 
shstsec 


ret 


readhst: 
shstdsk 
shstsec 


host disk #, 


hsttrk = host track #, 


host sect #. write "“hstsiz" bytes 
from hstbuf and return error flag in erflag, 
sreturn erflag non-zero if error 


host disk #, 
host sect #, 


hsttrk = host, track #, 
read “hstsiz" bytes 


sinto hstbuf and return error flag in erflag. 


ret 


e =@e@ 26 SO @=S ZO WE 
+ + + He HF 


sekdsk: ds 
sektrk: ds 
seksec: ds 


0 


hstdsk: ds 
hsttrk: ds 
hstsec: ds 
sekhst: ds 
hstact: ds 
hstwrt: ds 
unacnt: ds 
unadsk: ds 
unatrk: ds 
unasec: ds 


° 
’ 


erflag: ds 
rsflag: ds 
readov: ds 
wrtype: ds 
dmaadr: ds 
hstbuf: ds 


Le 
Z 
ie 


mre 


stsiz 


es 


KRKEKKKKEKKKKEKKKKEKKEKKEKKKEKEKKKKKKEKEKKEKEKREKKEKKEKEKKKKEKKEKE 


* 


Unitialized RAM data areas * 


* 


KHEKEKKKKKEKKEKKKEKEKKEKKKEKKKKEKKRKKRKEEKKKEKK A REKEKEKEKEKEKKEKKEKEKE 


*seek disk number 
sseek track number 
sseek sector number 


shost disk number 
shost track number 
shost sector number 


sseek shr secshf 
shost active flag 
shost written flag 


‘unalbloc rec cnt 
slast unalloc disk 
slast unalloc track 
slast unalloc sector 


s;error reporting 
sread sector flag 

7-1 if read operation 
swrite operation type 
slast dma address 
shost buffer 
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; 
S12 * 
CW SIs The ENDEF macro invocation goes here x 
O74 se: bok * 
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